|
200
|
Can you add text with links in the event
// AnchorClick event - Occurs when an anchor element is clicked.
void __fastcall TForm1::Schedule1AnchorClick(TObject *Sender,BSTR AnchorID,BSTR Options)
{
OutputDebugString( L"AnchorID" );
OutputDebugString( L"Options" );
}
Schedule1->Calendar->set_Selection(TVariant(TDateTime(2012,6,20).operator double()));
Exschedulelib_tlb::IEventsPtr var_Events = Schedule1->Events;
var_Events->Add(TVariant(TDateTime(2012,6,20,9,00,00,0).operator double()),TVariant(TDateTime(2012,6,20,11,00,00,0).operator double()))->ExtraLabel = L"<aID1234;OPTIONS-1234>click me</a>";
var_Events->Add(TVariant(TDateTime(2012,6,20,11,00,00,0).operator double()),TVariant(TDateTime(2012,6,20,13,00,00,0).operator double()))->ExtraLabel = L"<a1235;OPTIONS-1235>click me</a>";
|
|
199
|
How do you adjust the font type and size of the event (method 2)
Schedule1->Calendar->set_Selection(TVariant(TDateTime(2012,6,20).operator double()));
Schedule1->DefaultEventShortLabel = L"<font mistral;12><%=%256%>";
Schedule1->DefaultEventLongLabel = Schedule1->DefaultEventShortLabel;
Exschedulelib_tlb::IEventsPtr var_Events = Schedule1->Events;
var_Events->Add(TVariant(TDateTime(2012,6,20,9,00,00,0).operator double()),TVariant(TDateTime(2012,6,20,11,00,00,0).operator double()));
var_Events->Add(TVariant(TDateTime(2012,6,20,11,00,00,0).operator double()),TVariant(TDateTime(2012,6,20,13,00,00,0).operator double()));
|
|
198
|
How do you adjust the font type and size of the event (method 1)
Schedule1->Calendar->set_Selection(TVariant(TDateTime(2012,6,20).operator double()));
Exschedulelib_tlb::IEventsPtr var_Events = Schedule1->Events;
Exschedulelib_tlb::IEventPtr var_Event = var_Events->Add(TVariant(TDateTime(2012,6,20,9,00,00,0).operator double()),TVariant(TDateTime(2012,6,20,11,00,00,0).operator double()));
var_Event->ShortLabel = L"<font tahoma;12><%=%256%>";
var_Event->LongLabel = var_Event->ShortLabel;
Exschedulelib_tlb::IEventPtr var_Event1 = var_Events->Add(TVariant(TDateTime(2012,6,20,11,00,00,0).operator double()),TVariant(TDateTime(2012,6,20,13,00,00,0).operator double()));
var_Event1->ShortLabel = L"<fgcolor FF><i><font Mistral;16>your caption</i></font> goes here";
var_Event1->LongLabel = var_Event1->ShortLabel;
|
|
197
|
How can I change the shape of the line to be shown when user drag and drop data over the control
Schedule1->OLEDropMode = Exschedulelib_tlb::exOLEDropModeEnum::exOLEDropManual;
Schedule1->VisualAppearance->Add(1,TVariant("C:\\Program Files\\Exontrol\\ExSchedule\\Sample\\EBN\\dash1.ebn"));
Schedule1->Background[Exschedulelib_tlb::BackgroundPartEnum::exScheduleOLEDropPosition] = 0x1000000;
|
|
196
|
How can I highlight the date-time from cursor when the user drag and drop data over the control
Schedule1->OLEDropMode = Exschedulelib_tlb::exOLEDropModeEnum::exOLEDropManual;
Schedule1->Background[Exschedulelib_tlb::BackgroundPartEnum::exScheduleOLEDropPosition] = RGB(1,0,0);
|
|
195
|
How can I start drag and drop events
// OLEStartDrag event - Occurs when the OLEDrag method is called.
void __fastcall TForm1::Schedule1OLEStartDrag(TObject *Sender,Exschedulelib_tlb::IExDataObject *Data,long * AllowedEffects)
{
// Data.SetData("to be carried by drag and drop")
AllowedEffects = 1;
}
Schedule1->BeginUpdate();
Schedule1->AllowMoveEvent = Exschedulelib_tlb::AllowKeysEnum::exDisallow;
Schedule1->AllowCreateEvent = Exschedulelib_tlb::AllowKeysEnum::exDisallow;
Schedule1->OLEDropMode = Exschedulelib_tlb::exOLEDropModeEnum::exOLEDropManual;
Schedule1->Calendar->set_Selection(TVariant(TDateTime(2012,6,27).operator double()));
Exschedulelib_tlb::IEventsPtr var_Events = Schedule1->Events;
var_Events->Add(TVariant(TDateTime(2012,6,27,11,00,00,0).operator double()),TVariant(TDateTime(2012,6,27,12,30,00,0).operator double()))->BodyBackColor = RGB(255,0,0);
var_Events->Add(TVariant(TDateTime(2012,6,27,11,30,00,0).operator double()),TVariant(TDateTime(2012,6,27,13,30,00,0).operator double()));
var_Events->Add(TVariant(TDateTime(2012,6,27,8,30,00,0).operator double()),TVariant(TDateTime(2012,6,27,11,45,00,0).operator double()));
Schedule1->EndUpdate();
|
|
194
|
Is it possible to show the today date with a different foreground color
Schedule1->Calendar->set_Selection(TVariant(String("month(value) = month(date(``)) and (int((yearday(value) -1- ((7-weekday(value - yearday(value) + 1)) mod 7) )/7) = int((yearday") +
"(date(``))-1)/7))"));
Schedule1->Background[Exschedulelib_tlb::BackgroundPartEnum::exCalendarMarkToday] = Schedule1->BackColor;
Schedule1->Background[Exschedulelib_tlb::BackgroundPartEnum::exCalendarMarkTodayForeColor] = RGB(255,0,0);
|
|
193
|
How can I hide the rectangle around the today date
Schedule1->Calendar->set_Selection(TVariant(String("month(value) = month(date(``)) and (int((yearday(value) -1- ((7-weekday(value - yearday(value) + 1)) mod 7) )/7) = int((yearday") +
"(date(``))-1)/7))"));
Schedule1->Background[Exschedulelib_tlb::BackgroundPartEnum::exCalendarMarkToday] = Schedule1->BackColor;
|
|
192
|
Is it possible to change the appearance of event with no status using the EBN (office theme)
Schedule1->BeginUpdate();
Schedule1->VisualAppearance->Add(1,TVariant(String("gBFLBCJwBAEHhEJAEGg4BeoDg6AADACAxRDAMgBQKAAzQFAYaBqGqGAAGKD4JhUAIIRZGMIjFDcEwxC6NIpAWCYRDGEwCQiNQyRDCYYw+GYCJBmKKYcgONYgQLHcgxD") +
"IsJw/FyERjjeB4egkaZHRZOUZTZQsBxRAZ2Q4EQAKRpOFY9DTPcr0HR8ZQ+BKNAYkSjQAp2VZUVJFUqDKItVzbBIaRgteA7RrOXpjRjYEBxDKcZyxLqVLToiqcRz7Pqb" +
"ZrjeioZoyBI+QjgYAUFDeGSTDQ3bwAA4rEqaaZnVbkOQQJTcNy7EKvYRzGA7CgPHI5QjnVR6BjUJztWyIbp3G4rchqH4RaqAF5ZXg9ez/FIaJbnUaMWhXFqOABwPC0Xo" +
"IGuAJklAeR6H2dAngcEZWnQehzCsd4SmGPJzF2Io1l2fhrgeUpxHOLIAggSRAlIYw6B0ThGFyEJ4CEAwQgSV51BkDYQhCIQJHgGp0gAGBFgCB55nAAC3HCbYEGEOBIHO" +
"BZhggZgagYIRIHYEoFCGMoSCKCJiEiFgjgaYZjjYGIJiKSI2CeBZiAgXgugyYxIgYNINmIaJaDiDpKEiag8g2Y5on4M4GkqGQWEaEZkgkJhKhEZBJC4ToTmSSBqFCFJk" +
"ikNhUhXQpaFiFJlikbhPhcZZpC4GwqmYSYWGaGZmgmJhkhiZopjYboamGKY+HKGhmkmTh2CqZxZl4coeGeKY6HyHxmigbIuiCaBKBaBohmiCgOgKIhokoNoKgaKJqEaC" +
"IimkwwuiUKVyBiJk7m6HIiGGMqbCiSwqhaI4pmqComiOKBqiqNouioKpKj6JQsiqapOiuBoqnqZouiwaxahqOooiuSp+j+BpLEsFpGjGbILCaSoxGwSwuk6M5skgapQj" +
"SbIrDaVI15AWpYjSbYrG6T43G2a1Ui2bhLhaZo5m6C4mmSOJuiuNpujqYYrj6co6G6S5OnYLZvFuXpyj4b4rjqfI/G7aA7kCcBMBcBpBnCDAPAKQhwkwN1wjCbBHAiQp" +
"xCwVI7kVlJHBiRhwlwbzrHGbB/AeBpLlyFI/kmcoMiMJQvHKLIbCeSpyjyEwwkycxMk8LZMDMLIzC+S4LnyVw+kwYYsn8P5KHOPJoj+TnQl8NJSjMPJnEzmR9CMQpUnO" +
"SBvESVZ1g0ZwplWNYtHcXZXDWbYHESWA2C2Fxklkdgdh8aJXmGLYvGaBoME2RxylydxNlcdpcGGPZfHqXp3C2M4fIv3sD3ACMETAnALgJF+PAbgPh7jEHiFsXgNgxjyA" +
"4I8EoyR5CcFeCEY48huDPBqMsYYXBvg9GUPMDg/wiBjHoD0D4PRpD0G4NdcY8hoDZEqNcewHRHhlGyPYTofwujaHuB0Z4bQGh3C6O9ng9xvAJEqA0TIfgXiNHGPkDznx" +
"xD4E8F8To5x8iQGuKEdI+QvBvFSOuKotxYjpGGGYN4vR3j8A+A8Yo8R9jeHeMkeY/QPgsBoGcPonw3jdHuP4D4jxsgNH8F8V47R7D+E+L8eo+A/g/G+PwGYnx1j/D+FA" +
"AwAQfhoASAEL4lADiBAePEeowBcANAGGAOgCQhhDCMAoIIWAWgFHAMQDIghEBuAaEEbAPQChgHIB8QgUAxAQGEDgJgNAwgsBOIQJAbUpCoBoIoCAtAJiFGgMEBQwwqBj" +
"AWCEYAcwigoCgIAQBAQ=="));
Schedule1->OnResizeControl = Exschedulelib_tlb::OnResizeControlEnum::exChangePanels | Exschedulelib_tlb::OnResizeControlEnum::exHideSplitter;
Schedule1->Calendar->set_Selection(TVariant(TDateTime(2012,6,27).operator double()));
Schedule1->BodyEventBackColor = 0x1000000;
Schedule1->ShowStatusEvent = false;
Schedule1->DefaultEventPadding[Exschedulelib_tlb::PaddingEdgeEnum::exPaddingAll] = 3;
Schedule1->Background[Exschedulelib_tlb::BackgroundPartEnum::exScheduleCreateEventBackColor] = 0x1000000;
Schedule1->Background[Exschedulelib_tlb::BackgroundPartEnum::exScheduleUpdateEventsBackColor] = 0x1000000;
Exschedulelib_tlb::IEventsPtr var_Events = Schedule1->Events;
var_Events->Add(TVariant(TDateTime(2012,6,27,11,00,00,0).operator double()),TVariant(TDateTime(2012,6,27,12,30,00,0).operator double()))->BodyBackColor = RGB(255,0,0);
var_Events->Add(TVariant(TDateTime(2012,6,27,11,30,00,0).operator double()),TVariant(TDateTime(2012,6,27,13,30,00,0).operator double()))->BodyBackColor = RGB(0,255,0);
Schedule1->EndUpdate();
|
|
191
|
Is it possible to change the appearance of event's status using the EBN (office theme)
Schedule1->BeginUpdate();
Schedule1->OnResizeControl = Exschedulelib_tlb::OnResizeControlEnum::exChangePanels | Exschedulelib_tlb::OnResizeControlEnum::exHideSplitter;
Exschedulelib_tlb::IAppearancePtr var_Appearance = Schedule1->VisualAppearance;
var_Appearance->Add(1,TVariant(String("gBFLBCJwBAEHhEJAEGg4BKYCg6AADACAxRDAMgBQKAAzQFAYaBqGqGAAGKD4JhUAIIRZGMIjFDcEwxC6NIpAWCYRDEMQ0AJCIzDJCIZBkHCPRjASQZUhmHIDTbIEBxf") +
"IMIxLE9IMwxfA8ax1GifI6hGSYDa0HAkABTVQRLL4aSDK6NaYmSL5DhkBokUpGKTpOhgATHMqqIzGURZNquEQ1DBbEI3BaUaw/CKRLAoahqVpqK4tS7MNa3XKkcxzD6e" +
"IypGBKAgmQoJDLRGIxTiYACxPQACzsEAKapKUZPRZVNYQJQlNRDLiEcrgOr4DxqO4aWbZViaDZVawlNy5bhtfaqGrfKYJYLrWCTbh0Tz9KzIJJwHbcKxjKrDczjEoSVw" +
"iAmSgcGmIxaggHBHFmFpoHEJwbg8FpammO5bEUaxbm6ZwDH+YI7EIQQQhKAYkkYdA6hyDI4ngGRIA8AwQgSV51BkDYQhCIQJHeHAkCAGBFgGR55m8CQBkONkYCEEgxGe" +
"BZJHQDgTgWFhFgyf4HmICByBqBRhmiAgmD+YggAIHIJmKSIhGMQJijiNgmgoYwYkoH4NCIWJaC6BhiiiZg2g4CR4moN4LmOWQGEKEAkCibgwg+vwiEeEQjFifhQhMIpZ" +
"DoOoViUKJyFGExlDkGhXhcZIZGIXIWiUSIyGKFRmAkPhkheJYZC4bIYmaaYGGmF5mjmSh1hqJwZmIRYdieGZSH2GxnjmahbhoJx5nqAYhigOYaHOIAohiHhniKKBaDIZ" +
"YjiiOZCgeJImnoEh/iWKJYk6FYmikehyhOJ4pBqCoZiQKY6gKHYIGmeoiiGKoqDqMoliwKh6FKM4riqOQOjeLYqhqYoxi6K5anKL4visWoSkGMYsDsCo5hKLIbCKS4jm" +
"yKp+kyM5qlsRpFiyLB7GKTY2i0Spuk6NItAsfpXjALY7hKXYIk6Wh2CmBphgqOgTjuYhIHachAlAECAg="));
var_Appearance->Add(2,TVariant("CP:1 0 0 1 0"));
var_Appearance->Add(4,TVariant(String("gBFLBCJwBAEHhEJAEGg4BGoDg6AADACAxRDAMgBQKAAzQFAYaBqGqGAAGKD4JhUAIIRZGMIjFDcEwxC6NIpASLoJDCH4mSTHYxyHIMWwtDiBZgkCA4fiGEYnThKM5Sd") +
"KsXABG6NErSdDAAoKRIVTjAcsVTicAo+R7TcYgLBNAQHKQAHZDQRKZpuFoRRKJNgDLYUEhqGCyYDseyZNj2GZYRDPVqzWAFFzrFSqLilaYpSh+bpfSRSVI3PakQz+LCN" +
"CzwEAKYoaRZDRZgdzUbItMYNBKsMQgO6QAwqNKYQjWVaaFgEYzJMa2LTiHSqQhrGqMQjnV5ZPgVzZKZZGVQ1LBOOZfEJ2XacSqeCyWEqnRryFpWRpfGXiX7EOY7HaePw" +
"DAQQhKAaEwZlCahyDKDBjm4a5JAiG5jgyDYhCKDZukYSAYgsLAzh0RBlBqBAkA4Ox+n+H5AAGDJWDWH5jFmdBQl8Z5yAGAZfngDZ6H9HIiACAhUCgMgPgSYAYA4EoDiE" +
"WBGBiAxhAIXAADITRzGIIA2AyAxYleCJhGiFgnggYg4iIEYImKKIqC6B4iliMg2DYIRolYIoLA2ExmDmDwNhiNg9g+Y44goPYMmGeJeEKD4hBMMJbDaTIYnYTg2mUOBa" +
"FOFZknkVhNhYZZJFIT4ViWWRElmFohmkYhehQJA4ESTg3A2WYuG2GwmmgWhuhyZwJjIcodGaeZmGANpnEMdhkAAJ5ZE4cYaieCZ2HeHhoGoEoIh4IRjESXg3iialFiQa" +
"JaE6Fokg2ahWhiJBpEgRociWaZYHqH4mmiehqiOKBAAqDJUDgTgaiyYYFiqapGiyK4rAqTosiQa14jKKxrGqPo6i8a46laPIwmuGB6juMBrnsEo9jCLB6jKTIwCyawmk" +
"2L4sGsQpDjObIrFAAA2E4U4WlyN4tlsfgWjebhLgaXY4waApqjoLorhSZY7C6a4KBGPBuhuQppjyIZrlKa48m8e5WBENwOHOIyNDAHAOBaQJwgwFwBgWDZziSaZCHAQ4" +
"jAeQoxBwGp/kUMQME8FZFDGLBDBaB4xmwcwXkacQcDMDpDE6HIjCiSYyhyHwuDocpMisL5MHKfIuBGTIylyZgWDgToziyYg7A6TJ8myTwO7KPZRDQLQTEYOp0g0AxKgQ" +
"dBNDcQ5PHSPRHEeVQ1A0XxMlaNRdGsT4Hg4Q44m2WB2D2CxkgWNhNicZpYjaDYvGWW52l2PxqDsdz+meBBOGOIEcAdAPAnEcPIPAbx4C2H+MEd4XAHDxGEPEDgBh6jBD" +
"iDwEI4QFhvEOI8EYyR3i8EMPsZQcguCsBGMwOQMApj5GYEAPg8RtAADoDAFY9xpiAAQAggIA="));
Schedule1->Calendar->set_Selection(TVariant(TDateTime(2012,6,27).operator double()));
Schedule1->StatusEventColor = 0x2000000;
Schedule1->BodyEventBackColor = 0x4000000;
Schedule1->Background[Exschedulelib_tlb::BackgroundPartEnum::exScheduleCreateEventBackColor] = 0x1000000;
Schedule1->Background[Exschedulelib_tlb::BackgroundPartEnum::exScheduleUpdateEventsBackColor] = 0x1000000;
Schedule1->StatusEventSize = 6;
Schedule1->DefaultEventPadding[Exschedulelib_tlb::PaddingEdgeEnum::exPaddingAll] = 2;
Exschedulelib_tlb::IEventsPtr var_Events = Schedule1->Events;
var_Events->Add(TVariant(TDateTime(2012,6,27,11,00,00,0).operator double()),TVariant(TDateTime(2012,6,27,12,30,00,0).operator double()))->BodyBackColor = RGB(255,0,0);
Exschedulelib_tlb::IEventPtr var_Event = var_Events->Add(TVariant(TDateTime(2012,6,27,11,30,00,0).operator double()),TVariant(TDateTime(2012,6,27,13,30,00,0).operator double()));
var_Event->BodyBackColor = RGB(0,255,0);
var_Event->StatusColor = RGB(0,0,128);
var_Event->ExtraLabel = L"Point";
Exschedulelib_tlb::IEventPtr var_Event1 = var_Events->Add(TVariant(TDateTime(2012,6,27,8,30,00,0).operator double()),TVariant(TDateTime(2012,6,27,11,45,00,0).operator double()));
var_Event1->StatusColor = RGB(255,0,255);
Schedule1->EndUpdate();
|
|
190
|
Does your control support subscript or superscript, in HTML captions
Schedule1->BodyEventBackColor = RGB(240,240,240);
Schedule1->Calendar->set_Selection(TVariant(TDateTime(2012,6,20).operator double()));
Exschedulelib_tlb::IEventsPtr var_Events = Schedule1->Events;
var_Events->Add(TVariant(TDateTime(2012,6,20,9,00,00,0).operator double()),TVariant(TDateTime(2012,6,20,11,00,00,0).operator double()))->ExtraLabel = L"<sha ;;0>Event <b><font ;6><off 4>1";
var_Events->Add(TVariant(TDateTime(2012,6,20,11,00,00,0).operator double()),TVariant(TDateTime(2012,6,20,13,00,00,0).operator double()))->ExtraLabel = L"<sha ;;0>Event <b><font ;6><off 4>2";
var_Events->Add(TVariant(TDateTime(2012,6,20,13,00,00,0).operator double()),TVariant(TDateTime(2012,6,20,15,00,00,0).operator double()))->ExtraLabel = L"<sha ;;0>Event <b><font ;6><off -6>2<off 4>3<off 4>1";
|
|
189
|
How can I hide the scheduler part of the control, so I can use the calendar panel only
Schedule1->OnResizeControl = Exschedulelib_tlb::OnResizeControlEnum::exHideSplitter | Exschedulelib_tlb::OnResizeControlEnum::exResizePanelRight;
|
|
188
|
I see how I can specify a non-working day pattern for weekends, but how can I specify non-working days for holidays
Exschedulelib_tlb::ICalendarPtr var_Calendar = Schedule1->Calendar;
var_Calendar->set_SelectDate(TDateTime(2012,5,28).operator double(),true);
var_Calendar->Select(Exschedulelib_tlb::SelectCalendarDateEnum::exSelectWeek);
var_Calendar->set_SelectDate(TDateTime(2012,6,5).operator double(),false);
var_Calendar->Select(Exschedulelib_tlb::SelectCalendarDateEnum::exSelectToggle | Exschedulelib_tlb::SelectCalendarDateEnum::exSelectWeek);
var_Calendar->set_SelectDate(TDateTime(2012,6,12).operator double(),false);
var_Calendar->Select(Exschedulelib_tlb::SelectCalendarDateEnum::exSelectToggle | Exschedulelib_tlb::SelectCalendarDateEnum::exSelectWeek);
Exschedulelib_tlb::INonworkingTimesPtr var_NonworkingTimes = Schedule1->NonworkingTimes;
var_NonworkingTimes->Add(L"month(value) = 5",L"00:00",L"24:00",-1);
var_NonworkingTimes->Add(L"value in (#6/5/2012#,#6/7/2012#)",L"00:00",L"24:00",-1);
|
|
187
|
How do I enable the scrollbar-extension, as thumb to be shown outside of the control's client area
Schedule1->BeginUpdate();
Schedule1->ScrollBars = Exschedulelib_tlb::ScrollBarsEnum::exDisableBoth;
Schedule1->ScrollPartVisible[Exschedulelib_tlb::ScrollBarEnum::exVScroll,Exschedulelib_tlb::ScrollPartEnum::exExtentThumbPart] = true;
Schedule1->ScrollPartVisible[Exschedulelib_tlb::ScrollBarEnum::exHScroll,Exschedulelib_tlb::ScrollPartEnum::exExtentThumbPart] = true;
Schedule1->ScrollPartVisible[Exschedulelib_tlb::ScrollBarEnum(0x2),Exschedulelib_tlb::ScrollPartEnum::exExtentThumbPart] = true;
Schedule1->ScrollWidth = 4;
Schedule1->Background[Exschedulelib_tlb::BackgroundPartEnum::exVSBack] = RGB(240,240,240);
Schedule1->Background[Exschedulelib_tlb::BackgroundPartEnum::exVSThumb] = RGB(128,128,128);
Schedule1->ScrollHeight = 4;
Schedule1->Background[Exschedulelib_tlb::BackgroundPartEnum::exHSBack] = Schedule1->Background[Exschedulelib_tlb::BackgroundPartEnum::exVSBack];
Schedule1->Background[Exschedulelib_tlb::BackgroundPartEnum::exHSThumb] = Schedule1->Background[Exschedulelib_tlb::BackgroundPartEnum::exVSThumb];
Schedule1->Background[Exschedulelib_tlb::BackgroundPartEnum::exScrollSizeGrip] = Schedule1->Background[Exschedulelib_tlb::BackgroundPartEnum::exVSBack];
Schedule1->EndUpdate();
|
|
186
|
How can I show contiguously the days, in a single row
Exschedulelib_tlb::ICalendarPtr var_Calendar = Schedule1->Calendar;
var_Calendar->set_SelectDate(TDateTime(2012,5,20).operator double(),true);
var_Calendar->Select(Exschedulelib_tlb::SelectCalendarDateEnum::exSelectWeek);
var_Calendar->set_SelectDate(TDateTime(2012,5,27).operator double(),false);
var_Calendar->Select(Exschedulelib_tlb::SelectCalendarDateEnum::exSelectToggle | Exschedulelib_tlb::SelectCalendarDateEnum::exSelectWeek);
Schedule1->ShowViewCompact = Exschedulelib_tlb::ShowViewCompactEnum::exViewSingleRow;
|
|
185
|
How can I show contiguously the days
Exschedulelib_tlb::ICalendarPtr var_Calendar = Schedule1->Calendar;
var_Calendar->set_SelectDate(TDateTime(2012,5,20).operator double(),true);
var_Calendar->Select(Exschedulelib_tlb::SelectCalendarDateEnum::exSelectWeek);
var_Calendar->set_SelectDate(TDateTime(2012,5,27).operator double(),false);
var_Calendar->Select(Exschedulelib_tlb::SelectCalendarDateEnum::exSelectToggle | Exschedulelib_tlb::SelectCalendarDateEnum::exSelectWeek);
Schedule1->ShowViewCompact = Exschedulelib_tlb::ShowViewCompactEnum::exViewCalendarCompact;
|
|
184
|
How can I display the time in european format with no usage of AM/PM
Exschedulelib_tlb::ITimeScalePtr var_TimeScale = Schedule1->TimeScales->get_Item(TVariant(0));
var_TimeScale->MajorTimeLabel = L"<%hh%>:<%nn%>";
var_TimeScale->Width = 32;
Exschedulelib_tlb::ICalendarPtr var_Calendar = Schedule1->Calendar;
var_Calendar->set_Selection(TVariant(TDateTime(2001,6,11).operator double()));
var_Calendar->ShortTimeFormat = L"<%h%>:<%nn%>";
Exschedulelib_tlb::IEventsPtr var_Events = Schedule1->Events;
var_Events->Add(TVariant(TDateTime(2001,6,11,10,00,00,0).operator double()),TVariant(TDateTime(2001,6,11,13,15,00,0).operator double()));
var_Events->Add(TVariant(TDateTime(2001,6,11,10,30,00,0).operator double()),TVariant(TDateTime(2001,6,11,14,30,00,0).operator double()));
|
|
183
|
Is it possible to zoom the schedule component using a key and scrolling the wheel (not pressing it and moving the mouse)
Schedule1->AllowResizeSchedule = Exschedulelib_tlb::AllowKeysEnum::exCTRLKey | Exschedulelib_tlb::AllowKeysEnum::exMiddleClick;
Schedule1->AllowMoveSchedule = Exschedulelib_tlb::AllowKeysEnum::exMiddleClick;
|
|
182
|
How can I change the format of the date being displayed in the calendar panel
Schedule1->Calendar->HeaderDayLabel = L"<sha><%mmmm%></sha> <sha><fgcolor=FF0000><%yyyy%></fgcolor></sha>";
|
|
181
|
How can I display the Year in Thai, Buddhist, Korean format
Exschedulelib_tlb::ICalendarPtr var_Calendar = Schedule1->Calendar;
var_Calendar->FirstWeekDay = var_Calendar->LocFirstWeekDay;
var_Calendar->MonthNames = var_Calendar->LocMonthNames;
var_Calendar->WeekDays = var_Calendar->LocWeekDays;
var_Calendar->AMPM = var_Calendar->LocAMPM;
var_Calendar->HeaderDayLabel = L"<%mmmm%> <fgcolor=FF0000><%loc_yyyy%>";
Schedule1->HeaderDayLongLabel = TVariant(String("<|><%dddd%>, <%mmmm%> <%d%>, <fgcolor=FF0000><%loc_yyyy%><|><%dddd%>,<%mmmm%> <%d%>,<fgcolor=FF0000><%loc_yyyy%><|><%dddd%>, <%") +
"mmmm%> <%d%>,`<fgcolor=FF0000><%loc_yy%><|><%dddd%>, <%mmmm%> <%d%><|><%dddd%>, <%m3%> <%d%><|><%dddd%>, <%d%><|><%dddd%><|><%d3" +
"%><|><%d2%><|><%d1%>");
|
|
180
|
May I specify a fixed width for my dates, so user can not resize it
Schedule1->BeginUpdate();
Schedule1->OnResizeControl = Exschedulelib_tlb::OnResizeControlEnum::exCalendarAutoHide | Exschedulelib_tlb::OnResizeControlEnum::exCalendarFit | Exschedulelib_tlb::OnResizeControlEnum::exChangePanels | Exschedulelib_tlb::OnResizeControlEnum::exResizePanelRight;
Schedule1->AllowResizeSchedule = Exschedulelib_tlb::AllowKeysEnum::exDisallow;
Schedule1->AllowMoveSchedule = Exschedulelib_tlb::AllowKeysEnum::exMiddleClick;
Schedule1->ShowViewCompact = Exschedulelib_tlb::ShowViewCompactEnum::exViewCalendarCompact;
Schedule1->DayViewWidth = 96;
Schedule1->DayViewHeight = 256;
Schedule1->EndUpdate();
|
|
179
|
How can I change the format of date being displayed on the header
Schedule1->HeaderDayLongLabel = TVariant(String("<|><%dddd%>, <%d%> <%mmmm%>, <%yyyy%><|><%dddd%>, <%d%> <%mmmm%>, <%yyyy%><|><%dddd%>, <%d%> <%mmmm%>,`<%yy%><|><%dddd%>, <%d%>") +
" <%mmmm%><|><%dddd%>, <%d%> <%m3%><|><%dddd%>, <%d%><|><%dddd%><|><%d3%><|><%d2%><|><%d1%>");
|
|
178
|
Is there any notifications for exchanging the panels at runtime
// LayoutEndChanging event - Notifies your application once the control's layout has been changed.
void __fastcall TForm1::Schedule1LayoutEndChanging(TObject *Sender,Exschedulelib_tlb::LayoutChangingEnum Operation)
{
OutputDebugString( L"End exLayoutExchangePanels(16)" );
OutputDebugString( L"Operation" );
}
// LayoutStartChanging event - Occurs when the control's layout is about to be changed.
void __fastcall TForm1::Schedule1LayoutStartChanging(TObject *Sender,Exschedulelib_tlb::LayoutChangingEnum Operation)
{
OutputDebugString( L"Start exLayoutExchangePanels(16)" );
OutputDebugString( L"Operation" );
}
Schedule1->AllowExchangePanels = Exschedulelib_tlb::AllowKeysEnum::exLeftClick;
Schedule1->AllowCreateEvent = Exschedulelib_tlb::AllowKeysEnum::exDisallow;
|
|
177
|
How can I handle the All-Day events only
Schedule1->BeginUpdate();
Schedule1->OnResizeControl = Exschedulelib_tlb::OnResizeControlEnum::exCalendarAutoHide | Exschedulelib_tlb::OnResizeControlEnum::exCalendarFit;
Schedule1->ShowAllDayHeader = true;
Exschedulelib_tlb::ICalendarPtr var_Calendar = Schedule1->Calendar;
var_Calendar->set_SelectDate(TDateTime(2012,5,8).operator double(),true);
var_Calendar->Select(Exschedulelib_tlb::SelectCalendarDateEnum::exSelectWeek);
var_Calendar->set_SelectDate(TDateTime(2012,5,15).operator double(),false);
var_Calendar->Select(Exschedulelib_tlb::SelectCalendarDateEnum::exSelectToggle | Exschedulelib_tlb::SelectCalendarDateEnum::exSelectWeek);
Schedule1->TimeScales->get_Item(TVariant(0))->Visible = false;
Schedule1->Events->Add(TVariant(TDateTime(2012,5,8).operator double()),TVariant(TDateTime(2012,5,17).operator double()))->AllDayEvent = true;
Schedule1->EndUpdate();
|
|
176
|
Is it possible to show the All-Day events with EBN including the next/prev signs (2)
Schedule1->BeginUpdate();
Schedule1->OnResizeControl = Exschedulelib_tlb::OnResizeControlEnum::exCalendarAutoHide | Exschedulelib_tlb::OnResizeControlEnum::exCalendarFit;
Schedule1->ShowAllDayHeader = true;
Exschedulelib_tlb::ICalendarPtr var_Calendar = Schedule1->Calendar;
var_Calendar->set_SelectDate(TDateTime(2012,5,8).operator double(),true);
var_Calendar->Select(Exschedulelib_tlb::SelectCalendarDateEnum::exSelectWeek);
var_Calendar->set_SelectDate(TDateTime(2012,5,15).operator double(),false);
var_Calendar->Select(Exschedulelib_tlb::SelectCalendarDateEnum::exSelectToggle | Exschedulelib_tlb::SelectCalendarDateEnum::exSelectWeek);
Schedule1->VisualAppearance->Add(1,TVariant(String("gBFLBCJwBAEHhEJAEGg4BbkMQAAYAQGKIYBkAKBQAGaAoDDcOILQiMQzjTBMKgBBCLIxiGK4DhiF4aRSBMIwYAAYhyG4BIRGcYJEDMOQzR4MICSBKkMhlDiPY5mUAJE") +
"iSJg3TDQlzpAoSGoeUhGTZnQaQASXJqKZ6kegoEh4MopTTHQLRUB8EyTDKnaapSJpEDINQlWTZciDKKFUQTNi3KxraKqbjqO47VJKEpSZBMXRhBIYZCueZZXgPBY5YhI" +
"E64BSeASoACDZzoaAwTrOAwUZZFVg2DSOGSBRzQMKrCZKagnFYDVzleYxLjdR47Qy1Ih2GA7QqubYkUTmOjgBaoAYxQaaLx0OS5Rj4NAwZLFXI1eAGd6BDLhLz4XAOHx" +
"HjmAZvGOWoeG8PhBiMGIMGOQxZCQOBpGUG4NncEIdB8MxLhSbpRnMIIIEkQJSGMOgdE4RhfAwJZtAwEIEleeQZA2EIQiECR2ludB8BgRYMAeKYDByB4DG5F4hBgTgWgU" +
"YYIFIGoFmGOBlAmBJMmMQJwggYg4goJIJmIaImCWCpigiLgTgeYQYjYMoKiMOIyDSCIinQDggg2YxonYNYNGOEACDuD4jkifhFg4IQYkCW4RiQSQ2ECEhjiiRhHhOJQ4" +
"jYQYQmSSRmFOFZlCkUhehMJZJC4VYYmWaYGFqF5ljkQhChcZh5jYKoZiYSY6D2HAmgmVhWhqJYJkYeoLieCYyHuHInEmSoAh8Zgplof4SA2OQqgKIZPAmBgciOYYaEIH" +
"YkmQFAEIC"));
Schedule1->VisualAppearance->Add(2,TVariant(String("gBFLBCJwBAEHhEJAEGg4BVMIQAAYAQGKIYBkAKBQAGaAoDDYMwzQwAAxjOK0EwsACEIrjKCRShyCYZRhGcTSBCIZBqEqSZLiEZRQiiCYsS5GQBSFDcOwHGyQYDkCQpE") +
"hyKo+CTIAySXJsdw3IyNAIhEB4fgmM4DP7UIAVC78aRABCESgNEwzULUchlDDICJQSQRGzHDSKYDFCCaKgOTI6kgicpJUt6PBtaovKoWOZBcJ3Xjed6vBgeASpQbEL6w" +
"DCbfrjB6KY5eeDXXSkAkB"));
Schedule1->VisualAppearance->Add(3,TVariant(String("gBFLBCJwBAEHhEJAEGg4BVUIQAAYAQGKIYBkAKBQAGaAoDDYMwzQwAAxjOK0EwsACEIrjKCRShyCYZRhGcTSBCIZBqEqSZLiEZRQiiCYsS5GQBSFDcOwHGyQYDkCQpE") +
"hyKo+CTIAySXJsZxpHKaAIhEB4fgmRgAP7UNQVFLkEgRBIoDRMM5DVLIZQxSAiUIkERtRQ1CqBRQhGioDoyOgABhFZSUPKlIztO45DwbO56RrlWzONA8FzXdgDYYLQjA" +
"cJwXA7awrAZ8P7iGBZBbtdQCgIA=="));
Schedule1->BodyEventBackColor = 0x1000000;
Schedule1->Background[Exschedulelib_tlb::BackgroundPartEnum::exScheduleEventContinueNextWeek] = 0x2000000;
Schedule1->Background[Exschedulelib_tlb::BackgroundPartEnum::exScheduleEventContinuePrevWeek] = 0x3000000;
Schedule1->HeaderAllDayEventHeight = -14;
Schedule1->Events->Add(TVariant(TDateTime(2012,5,8).operator double()),TVariant(TDateTime(2012,5,17).operator double()))->AllDayEvent = true;
Schedule1->EndUpdate();
|
|
175
|
How can I select programatically two weeks
Exschedulelib_tlb::ICalendarPtr var_Calendar = Schedule1->Calendar;
var_Calendar->set_SelectDate(TDateTime(2012,5,8).operator double(),true);
var_Calendar->Select(Exschedulelib_tlb::SelectCalendarDateEnum::exSelectWeek);
var_Calendar->set_SelectDate(TDateTime(2012,5,15).operator double(),false);
var_Calendar->Select(Exschedulelib_tlb::SelectCalendarDateEnum::exSelectToggle | Exschedulelib_tlb::SelectCalendarDateEnum::exSelectWeek);
|
|
174
|
Is it possible to show the All-Day events with EBN including the next/prev signs (1)
Schedule1->BeginUpdate();
Schedule1->OnResizeControl = Exschedulelib_tlb::OnResizeControlEnum::exCalendarAutoHide;
Schedule1->ShowAllDayHeader = true;
Exschedulelib_tlb::ICalendarPtr var_Calendar = Schedule1->Calendar;
var_Calendar->FirstWeekDay = Exschedulelib_tlb::WeekDayEnum::exMonday;
var_Calendar->set_SelectDate(TDateTime(2012,5,8).operator double(),true);
var_Calendar->Select(Exschedulelib_tlb::SelectCalendarDateEnum::exSelectWeek);
var_Calendar->set_SelectDate(TDateTime(2012,5,15).operator double(),false);
var_Calendar->Select(Exschedulelib_tlb::SelectCalendarDateEnum::exSelectToggle | Exschedulelib_tlb::SelectCalendarDateEnum::exSelectWeek);
Schedule1->VisualAppearance->Add(1,TVariant(String("gBFLBCJwBAEHhEJAEGg4BbkMQAAYAQGKIYBkAKBQAGaAoDDcOILQiMQzjTBMKgBBCLIxiGK4DhiF4aRSBMIwYAAYhyG4BIRGcYJEDMOQzR4MICSBKkMhlDiPY5mUAJE") +
"iSJg3TDQlzpAoSGoeUhGTZnQaQASXJqKZ6kegoEh4MopTTHQLRUB8EyTDKnaapSJpEDINQlWTZciDKKFUQTNi3KxraKqbjqO47VJKEpSZBMXRhBIYZCueZZXgPBY5YhI" +
"E64BSeASoACDZzoaAwTrOAwUZZFVg2DSOGSBRzQMKrCZKagnFYDVzleYxLjdR47Qy1Ih2GA7QqubYkUTmOjgBaoAYxQaaLx0OS5Rj4NAwZLFXI1eAGd6BDLhLz4XAOHx" +
"HjmAZvGOWoeG8PhBiMGIMGOQxZCQOBpGUG4NncEIdB8MxLhSbpRnMIIIEkQJSGMOgdE4RhfAwJZtAwEIEleeQZA2EIQiECR2ludB8BgRYMAeKYDByB4DG5F4hBgTgWgU" +
"YYIFIGoFmGOBlAmBJMmMQJwggYg4goJIJmIaImCWCpigiLgTgeYQYjYMoKiMOIyDSCIinQDggg2YxonYNYNGOEACDuD4jkifhFg4IQYkCW4RiQSQ2ECEhjiiRhHhOJQ4" +
"jYQYQmSSRmFOFZlCkUhehMJZJC4VYYmWaYGFqF5ljkQhChcZh5jYKoZiYSY6D2HAmgmVhWhqJYJkYeoLieCYyHuHInEmSoAh8Zgplof4SA2OQqgKIZPAmBgciOYYaEIH" +
"YkmQFAEIC"));
Schedule1->VisualAppearance->Add(2,TVariant(String("gBFLBCJwBAEHhEJAEGg4BKMMQAAYAQGKIYBkAKBQAGaAoDDUNgwQwAAxDGKkEwsACEIrjKCRShyCYZRhGcTSBCIZBqEqSZLiEZRQiiCYsS5GQBSFDcOwHGyQYDkCQpE") +
"hyKo+CTIA4SXJsdxpI4EIRCSL6MgNf5PABTb7zTSgYANF6WRZgWgpTjcMJHTpYFIwHRdQwHLqoagqKZJAqMABQGiYZyHKcwMYgBZXJBEbbMNBtBIUIRtaxZBBiFzgUZY" +
"EBnEbDN4YbapMhyLI2OZBcCOJQ4SCoW4GJ49J7KXgYZiHOLcfjcLovLq5fiOQ5CV5ZXROM6sQyzIKWaCzLL5PjKHInWrPNa3DJtDyXJzUNY9GScG6HBLhWB0czzXIuO4" +
"djqXg4jUOo9j8N4Zk6YoeA+bZKhcV49kyaAllODhPC8d5bi+WJ6H0fhvHcExIHgQB4nuHpOj4Y4zioeQfDePZRGcHI3lGIh9h4JwhkodQckecY9G+WpHDmUAdAeNwCBE" +
"fRcGaIZ/G2D52gWfR0iGRhFg8Y5iBYTQBICA="));
Schedule1->VisualAppearance->Add(3,TVariant(String("gBFLBCJwBAEHhEJAEGg4BgsHQAAYAQGKIYBkAKBQAGaAoDDUNgwQwAAxDGKkEwsACEIrjKCRShyCYZRhGcTSBCIZBqEqSZLiEZRQiiCYsS5GQBSFDcOwHGyQYDkCQpE") +
"hyKo+CTIA4SXJsZxpI6EQQhEJIfo2Az/VAAFQPfLNKhgAyXZZFWBaCoaEgwUhVMhUVAdGR1BKvKjqKoZcomCRQGiYZyHKcwMYgBZRRBEbbMNBtBIULasWjQYhdYI7WDT" +
"dR4XhmGDkPBtcbbPDcUpBBSLOAjSSOExzILhSrFVyXVzTXL5XDGMg7Wa5foFIDmPRtVbWNydLyvICOJK2eZOExrHrhWrPMZaRpnUyXJ6pcBvfA4Zi7QZlWjPOR2aoNCZ" +
"bjuXpyjsPIahmYJ/keVR0HwPYsnIXQ4mSZ50jwXIfC+HxnmmcZ2HuCAOn+P43lSUZ1neXxeF4L4bmgeoeCcCZEHcXxIAGLBlBuBpphsdgfGaNB0B6WwXjoARrE+dxVkY" +
"ageAgHgUD+XJWm2U4GliNhJhIQBAICA=="));
Schedule1->BodyEventBackColor = 0x1000000;
Schedule1->Background[Exschedulelib_tlb::BackgroundPartEnum::exScheduleEventContinueNextWeek] = 0x2000000;
Schedule1->Background[Exschedulelib_tlb::BackgroundPartEnum::exScheduleEventContinuePrevWeek] = 0x3000000;
Schedule1->HeaderAllDayEventHeight = -20;
Schedule1->Events->Add(TVariant(TDateTime(2012,5,8).operator double()),TVariant(TDateTime(2012,5,17).operator double()))->AllDayEvent = true;
Schedule1->EndUpdate();
|
|
173
|
Can I make it zoom in using CTRL-MouseWheel instead of using the middle button
Schedule1->AllowResizeSchedule = Exschedulelib_tlb::AllowKeysEnum::exCTRLKey | Exschedulelib_tlb::AllowKeysEnum::exMiddleClick;
|
|
172
|
It is by default not possible, to simply scroll the component with the mouse wheel. How do I make it so
Schedule1->AllowMoveSchedule = Exschedulelib_tlb::AllowKeysEnum::exMiddleClick;
|
|
171
|
Can I get and set the width of the time bar
Schedule1->TimeScales->get_Item(TVariant(0))->Width = 48;
|
|
170
|
How do I select the current year
Schedule1->ShowViewCompact = Exschedulelib_tlb::ShowViewCompactEnum::exViewCalendarCompact;
Schedule1->OnResizeControl = Exschedulelib_tlb::OnResizeControlEnum::exCalendarAutoHide;
Schedule1->Calendar->Select(Exschedulelib_tlb::SelectCalendarDateEnum::exSelectYear);
|
|
169
|
How do I select the current week day
Schedule1->ShowViewCompact = Exschedulelib_tlb::ShowViewCompactEnum::exViewCalendarCompact;
Schedule1->Calendar->Select(Exschedulelib_tlb::SelectCalendarDateEnum::exSelectWeekDay);
|
|
168
|
How do I select the current week
Schedule1->ShowViewCompact = Exschedulelib_tlb::ShowViewCompactEnum::exViewCalendarCompact;
Schedule1->Calendar->Select(Exschedulelib_tlb::SelectCalendarDateEnum::exSelectWeek);
|
|
167
|
How can I restore the layout of the panels, when user changes the width and the alignment of the panels
// LayoutEndChanging event - Notifies your application once the control's layout has been changed.
void __fastcall TForm1::Schedule1LayoutEndChanging(TObject *Sender,Exschedulelib_tlb::LayoutChangingEnum Operation)
{
OutputDebugString( L"End Operation " );
OutputDebugString( L"Operation" );
OutputDebugString( L"Layout " );
OutputDebugString( PChar(Schedule1->OnResizeControl) );
OutputDebugString( L"PaneWidth(False)" );
OutputDebugString( PChar(Schedule1->PaneWidth[false]) );
}
// LayoutStartChanging event - Occurs when the control's layout is about to be changed.
void __fastcall TForm1::Schedule1LayoutStartChanging(TObject *Sender,Exschedulelib_tlb::LayoutChangingEnum Operation)
{
OutputDebugString( L"Start Operation " );
OutputDebugString( L"Operation" );
OutputDebugString( L"Layout " );
OutputDebugString( PChar(Schedule1->OnResizeControl) );
OutputDebugString( L"PaneWidth(False)" );
OutputDebugString( PChar(Schedule1->PaneWidth[false]) );
}
// MouseMove event - Occurs when the user moves the mouse.
void __fastcall TForm1::Schedule1MouseMove(TObject *Sender,short Button,short Shift,int X,int Y)
{
OutputDebugString( L"Layout " );
OutputDebugString( PChar(Schedule1->OnResizeControl) );
OutputDebugString( L"PaneWidth(False)" );
OutputDebugString( PChar(Schedule1->PaneWidth[false]) );
}
|
|
166
|
Is it possibly to set the column width of the group/person using the api
Schedule1->BeginUpdate();
Schedule1->Calendar->set_Selection(TVariant(TDateTime(2001,1,10).operator double()));
Schedule1->DisplayGroupingButton = true;
Schedule1->ShowGroupingEvents = true;
Schedule1->OnResizeControl = Exschedulelib_tlb::OnResizeControlEnum::exCalendarAutoHide | Exschedulelib_tlb::OnResizeControlEnum::exCalendarFit | Exschedulelib_tlb::OnResizeControlEnum::exResizePanelRight;
Exschedulelib_tlb::IGroupsPtr var_Groups = Schedule1->Groups;
Exschedulelib_tlb::IGroupPtr var_Group = var_Groups->Add(1,L"Group 1");
var_Group->Title = L"First";
var_Group->Visible = true;
Exschedulelib_tlb::IGroupPtr var_Group1 = var_Groups->Add(2,L"Group 2");
var_Group1->Title = L"Second";
var_Group1->Visible = true;
Exschedulelib_tlb::IEventsPtr var_Events = Schedule1->Events;
var_Events->Add(TVariant(TDateTime(2001,1,10,9,00,00,0).operator double()),TVariant(TDateTime(2001,1,10,12,30,00,0).operator double()))->GroupID = 1;
var_Events->Add(TVariant(TDateTime(2001,1,10,10,00,00,0).operator double()),TVariant(TDateTime(2001,1,10,13,00,00,0).operator double()))->GroupID = 2;
Schedule1->Groups->get_Item(TVariant(1))->Width = 24;
Schedule1->EndUpdate();
|
|
165
|
When viewing the schedule by week or month and the month ends during the week (July 31, Tuesday -> August 1, Wednesday), the days continue down as a new week 'row'. When there is a change in month, is it possible to still show the full week without that break (compact)
Schedule1->BeginUpdate();
Schedule1->OnResizeControl = Exschedulelib_tlb::OnResizeControlEnum::exCalendarAutoHide;
Exschedulelib_tlb::ICalendarPtr var_Calendar = Schedule1->Calendar;
var_Calendar->set_Selection(TVariant(TDateTime(2012,5,23).operator double()));
var_Calendar->set_Selection(TVariant("month(value) in (5,6)"));
Schedule1->ShowViewCompact = Exschedulelib_tlb::ShowViewCompactEnum::exViewCalendarCompact;
Schedule1->EndUpdate();
|
|
164
|
I want to change the default event tooltip. How can I do that
Schedule1->DefaultEventTooltip = TVariant(String("<b>BEGIN:</b> <%=%1%><br><b>END:</b>: <%=%2%><br><b>LENGTH:</b> <%=((1:=int(0:= (date(%2)-date(%1)))) != 0 ? (=:1 + ' day(s)') ") +
": '') + (=:1 ? ' ' : '' ) + ((1:=int(0:=((=:0 - =:1 + 1/24/60/60/2)*24))) != 0 ? =:1 + ' hour(s)' : '' ) + (=:1 ? ' ' : '' ) + (" +
"(1:=round((=:0 - =:1)*60)) != 0 ? =:1 + ' min(s)' : '')%>");
|
|
163
|
How can I select the entire week for a specified date
Schedule1->BeginUpdate();
Exschedulelib_tlb::ICalendarPtr var_Calendar = Schedule1->Calendar;
var_Calendar->NonworkingDays = 0;
var_Calendar->ShowNonMonthDays = false;
var_Calendar->FirstWeekDay = Exschedulelib_tlb::WeekDayEnum::exSunday;
var_Calendar->set_Selection(TVariant(TDateTime(2012,3,5).operator double()));
var_Calendar->set_Selection(TVariant("(int((yearday(value) -1- ((7-weekday(value - yearday(value) + 1)) mod 7) )/7) = int((yearday(#3/5/2012#)-1)/7))"));
Schedule1->BorderSelStyle = Exschedulelib_tlb::LinesStyleEnum::exNoLines;
Schedule1->Background[Exschedulelib_tlb::BackgroundPartEnum::exScheduleMarkTodayBackColor] = RGB(240,240,240);
Schedule1->EndUpdate();
|
|
162
|
I have noticed that I can drag bars from All-Day header to time-zone and reverse. Is it possible to prevent that
Schedule1->BeginUpdate();
Schedule1->OnResizeControl = Exschedulelib_tlb::OnResizeControlEnum::exCalendarAutoHide;
Schedule1->ShowAllDayHeader = true;
Schedule1->AllowUpdateAllDayFlag = false;
Schedule1->Calendar->set_Selection(TVariant(TDateTime(2012,5,23).operator double()));
Schedule1->Calendar->set_Selection(TVariant("value in (#5/23/2012#,#5/24/2012#,#5/25/2012#)"));
Exschedulelib_tlb::IEventsPtr var_Events = Schedule1->Events;
var_Events->Add(TVariant(TDateTime(2012,5,24,10,00,00,0).operator double()),TVariant(TDateTime(2012,5,24,12,00,00,0).operator double()))->ExtraLabel = L"<sha>dentist";
var_Events->Add(TVariant(TDateTime(2012,5,24).operator double()),TVariant(TDateTime(2012,5,25).operator double()))->AllDayEvent = true;
var_Events->Add(TVariant(TDateTime(2012,5,23).operator double()),TVariant(TDateTime(2012,5,24).operator double()))->AllDayEvent = true;
Schedule1->SelectEventStyle = Exschedulelib_tlb::LinesStyleEnum::exNoLines;
Schedule1->ShowSelectEvent = false;
Schedule1->EndUpdate();
|
|
161
|
When an all-day event stretches over multiple days (ex. Monday thru Friday), is it possible to have that display as a continuous bar across those days instead of separate bars on each day
Schedule1->BeginUpdate();
Schedule1->OnResizeControl = Exschedulelib_tlb::OnResizeControlEnum::exCalendarAutoHide;
Schedule1->ShowAllDayHeader = true;
Schedule1->Calendar->set_Selection(TVariant(TDateTime(2012,5,23).operator double()));
Schedule1->Calendar->set_Selection(TVariant("value in (#5/23/2012#,#5/24/2012#,#5/25/2012#)"));
Exschedulelib_tlb::IEventsPtr var_Events = Schedule1->Events;
var_Events->Add(TVariant(TDateTime(2012,5,24,10,00,00,0).operator double()),TVariant(TDateTime(2012,5,24,12,00,00,0).operator double()))->ExtraLabel = L"<sha>dentist";
var_Events->Add(TVariant(TDateTime(2012,5,24).operator double()),TVariant(TDateTime(2012,5,25).operator double()))->AllDayEvent = true;
var_Events->Add(TVariant(TDateTime(2012,5,23).operator double()),TVariant(TDateTime(2012,5,24).operator double()))->AllDayEvent = true;
Schedule1->SelectEventStyle = Exschedulelib_tlb::LinesStyleEnum::exNoLines;
Schedule1->ShowSelectEvent = false;
Schedule1->EndUpdate();
|
|
160
|
If I double click to a scheduled event and enter text, how can I read this newly entered text (i.e. what is its corresponding field)
// LayoutEndChanging event - Notifies your application once the control's layout has been changed.
void __fastcall TForm1::Schedule1LayoutEndChanging(TObject *Sender,Exschedulelib_tlb::LayoutChangingEnum Operation)
{
OutputDebugString( PChar(Schedule1->EventFromPoint[-1,-1]) );
}
Schedule1->BeginUpdate();
Schedule1->Calendar->set_Selection(TVariant(TDateTime(2012,5,24).operator double()));
Exschedulelib_tlb::IEventsPtr var_Events = Schedule1->Events;
var_Events->Add(TVariant(TDateTime(2012,5,24,10,00,00,0).operator double()),TVariant(TDateTime(2012,5,24,12,00,00,0).operator double()))->ExtraLabel = L"editable";
Schedule1->SelectEventStyle = Exschedulelib_tlb::LinesStyleEnum::exNoLines;
Schedule1->ShowSelectEvent = false;
Schedule1->EndUpdate();
|
|
159
|
Is it possible to show the date's header with a shadow
Schedule1->HeaderDayLongLabel = L"<sha><%dddd%>, <%mmmm%> <%d%>, <%yyyy%>";
Schedule1->Calendar->OnSelectDate = Exschedulelib_tlb::OnSelectDateEnum::exEnsureVisibleDate;
Schedule1->AllowResizeSchedule = Exschedulelib_tlb::AllowKeysEnum::exDisallow;
|
|
158
|
We need to highlight a day for example no booking/disabling for that day, is the timezone good choice (method 3)
Exschedulelib_tlb::ICalendarPtr var_Calendar = Schedule1->Calendar;
var_Calendar->set_Selection(TVariant(TDateTime(2012,6,27).operator double()));
var_Calendar->set_Selection(TVariant("value in (#6/26/2012#,#6/27/2012#,#6/28/2012#)"));
Schedule1->AllowMultiDaysEvent = false;
Schedule1->NonworkingPatterns->Add(1,Exschedulelib_tlb::PatternEnum::exPatternSolid)->Pattern->Color = RGB(240,240,240);
Schedule1->NonworkingTimes->Add(L"value in (#6/27/2012#)",L"00:00",L"24:00",1);
Schedule1->ShowNonworkingTime = Exschedulelib_tlb::ShowNonworkingTimeEnum::exShowNonworkingTimeBack;
Schedule1->Calendar->DisableZoneFormat = L"value in (#6/27/2012#)";
|
|
157
|
We need to highlight a day for example no booking for that day, is the timezone good choice (method 2)
Exschedulelib_tlb::ICalendarPtr var_Calendar = Schedule1->Calendar;
var_Calendar->set_Selection(TVariant(TDateTime(2012,6,27).operator double()));
var_Calendar->set_Selection(TVariant("value in (#6/26/2012#,#6/27/2012#,#6/28/2012#)"));
Schedule1->NonworkingPatterns->Add(1,Exschedulelib_tlb::PatternEnum::exPatternSolid)->Pattern->Color = RGB(240,240,240);
Schedule1->NonworkingTimes->Add(L"value in (#6/27/2012#)",L"00:00",L"24:00",1);
Schedule1->ShowNonworkingTime = Exschedulelib_tlb::ShowNonworkingTimeEnum::exShowNonworkingTimeBack;
|
|
156
|
We need to highlight a day for example no booking for that day, is the timezone good choice (method 1)
Exschedulelib_tlb::ICalendarPtr var_Calendar = Schedule1->Calendar;
var_Calendar->set_Selection(TVariant(TDateTime(2012,6,27).operator double()));
var_Calendar->set_Selection(TVariant("value in (#6/26/2012#,#6/27/2012#,#6/28/2012#)"));
Exschedulelib_tlb::IMarkZonePtr var_MarkZone = Schedule1->MarkZones->Add(L"zone",TVariant(TDateTime(2012,6,27).operator double()),TVariant(TDateTime(2012,6,28).operator double()));
var_MarkZone->BackColor = RGB(240,240,240);
var_MarkZone->Pattern->Type = Exschedulelib_tlb::PatternEnum::exPatternEmpty;
Schedule1->ShowMarkZone = Exschedulelib_tlb::ShowMarkZoneEnum::exShowMarkZonesBack;
|
|
155
|
Is is possible to change the background color for a specific day
Exschedulelib_tlb::ICalendarPtr var_Calendar = Schedule1->Calendar;
var_Calendar->set_Selection(TVariant(TDateTime(2012,6,27).operator double()));
var_Calendar->set_Selection(TVariant("value in (#6/26/2012#,#6/27/2012#,#6/28/2012#)"));
Exschedulelib_tlb::IMarkZonePtr var_MarkZone = Schedule1->MarkZones->Add(L"zone",TVariant(TDateTime(2012,6,27).operator double()),TVariant(TDateTime(2012,6,28).operator double()));
var_MarkZone->BackColor = RGB(240,240,240);
var_MarkZone->Pattern->Type = Exschedulelib_tlb::PatternEnum::exPatternEmpty;
Schedule1->ShowMarkZone = Exschedulelib_tlb::ShowMarkZoneEnum::exShowMarkZonesBack;
|
|
154
|
I want to know how can I call a user define form when editing a time slot
// LayoutEndChanging event - Notifies your application once the control's layout has been changed.
void __fastcall TForm1::Schedule1LayoutEndChanging(TObject *Sender,Exschedulelib_tlb::LayoutChangingEnum Operation)
{
OutputDebugString( L"End exScheduleResize(5)" );
OutputDebugString( L"Operation" );
}
// LayoutStartChanging event - Occurs when the control's layout is about to be changed.
void __fastcall TForm1::Schedule1LayoutStartChanging(TObject *Sender,Exschedulelib_tlb::LayoutChangingEnum Operation)
{
OutputDebugString( L"Start exScheduleResize(5)" );
OutputDebugString( L"Operation" );
}
Exschedulelib_tlb::ICalendarPtr var_Calendar = Schedule1->Calendar;
var_Calendar->SingleSel = true;
var_Calendar->OnSelectDate = Exschedulelib_tlb::OnSelectDateEnum::exEnsureVisibleDate;
Schedule1->ClipToSel = true;
Schedule1->AllowMoveSchedule = Exschedulelib_tlb::AllowKeysEnum::exDisallow;
Schedule1->AllowMoveGroup = Exschedulelib_tlb::AllowKeysEnum::exDisallow;
Schedule1->AllowResizeSchedule = Exschedulelib_tlb::AllowKeysEnum::exLeftClick;
Schedule1->AllowCreateEvent = Exschedulelib_tlb::AllowKeysEnum::exDisallow;
|
|
153
|
Can we lock the scroll bars so that it only scrolls within the selected date
Exschedulelib_tlb::ICalendarPtr var_Calendar = Schedule1->Calendar;
var_Calendar->set_Selection(TVariant(TDateTime(2001,6,1).operator double()));
var_Calendar->set_Selection(TVariant("value in (#6/11/2001#,#6/12/2001#)"));
var_Calendar->SingleSel = true;
var_Calendar->OnSelectDate = Exschedulelib_tlb::OnSelectDateEnum::exEnsureVisibleDate;
Schedule1->ClipToSel = true;
Schedule1->DayViewWidth = -1;
Schedule1->DayViewHeight = 512;
Exschedulelib_tlb::IEventsPtr var_Events = Schedule1->Events;
var_Events->Add(TVariant(TDateTime(2001,6,11,10,00,00,0).operator double()),TVariant(TDateTime(2001,6,11,13,00,00,0).operator double()));
var_Events->Add(TVariant(TDateTime(2001,6,12,10,00,00,0).operator double()),TVariant(TDateTime(2001,6,12,13,00,00,0).operator double()));
|
|
152
|
Is it possible to specify the dates to be printed to a single page
Exschedulelib_tlb::ICalendarPtr var_Calendar = Schedule1->Calendar;
var_Calendar->set_Selection(TVariant(TDateTime(2001,6,1).operator double()));
var_Calendar->set_Selection(TVariant("value in (#6/11/2001#,#6/12/2001#)"));
Schedule1->DayViewWidth = 116;
Schedule1->DayViewHeight = 116;
Exschedulelib_tlb::IEventsPtr var_Events = Schedule1->Events;
var_Events->Add(TVariant(TDateTime(2001,6,11,10,00,00,0).operator double()),TVariant(TDateTime(2001,6,11,13,00,00,0).operator double()));
var_Events->Add(TVariant(TDateTime(2001,6,12,10,00,00,0).operator double()),TVariant(TDateTime(2001,6,12,13,00,00,0).operator double()));
/*
Select the Component\Import Component...\Import a Type Library,
to import the following Type Library:
ExPrint 1.0 Control Library
TypeLib: ExPrint.dll
to define the namespace: Exprintlib_tlb
*/
//#include "EXPRINTLIB_TLB.h"
Exprintlib_tlb::IExPrintPtr var_Print = Variant::CreateObject(L"Exontrol.Print");
var_Print->set_Options(TVariant("Range=month(value)=6;FitToPage=On"));
var_Print->PrintExt = (IUnknown*)Schedule1->DefaultDispatch;
var_Print->Preview();
|
|
151
|
Is it possible to specify the dates to be printed
Exschedulelib_tlb::ICalendarPtr var_Calendar = Schedule1->Calendar;
var_Calendar->set_Selection(TVariant(TDateTime(2001,6,1).operator double()));
var_Calendar->set_Selection(TVariant("value in (#6/11/2001#,#6/12/2001#)"));
Schedule1->DayViewWidth = 116;
Schedule1->DayViewHeight = 116;
Exschedulelib_tlb::IEventsPtr var_Events = Schedule1->Events;
var_Events->Add(TVariant(TDateTime(2001,6,11,10,00,00,0).operator double()),TVariant(TDateTime(2001,6,11,13,00,00,0).operator double()));
var_Events->Add(TVariant(TDateTime(2001,6,12,10,00,00,0).operator double()),TVariant(TDateTime(2001,6,12,13,00,00,0).operator double()));
/*
Select the Component\Import Component...\Import a Type Library,
to import the following Type Library:
ExPrint 1.0 Control Library
TypeLib: ExPrint.dll
to define the namespace: Exprintlib_tlb
*/
//#include "EXPRINTLIB_TLB.h"
Exprintlib_tlb::IExPrintPtr var_Print = Variant::CreateObject(L"Exontrol.Print");
var_Print->set_Options(TVariant("Range=month(value)=6"));
var_Print->PrintExt = (IUnknown*)Schedule1->DefaultDispatch;
var_Print->Preview();
|
|
150
|
Does your control support Fit-To-Page, while printing
Exschedulelib_tlb::ICalendarPtr var_Calendar = Schedule1->Calendar;
var_Calendar->set_Selection(TVariant(TDateTime(2001,6,1).operator double()));
var_Calendar->set_Selection(TVariant("value in (#6/11/2001#,#6/12/2001#)"));
Schedule1->DayViewWidth = 512;
Schedule1->DayViewHeight = 512;
Exschedulelib_tlb::IEventsPtr var_Events = Schedule1->Events;
var_Events->Add(TVariant(TDateTime(2001,6,11,10,00,00,0).operator double()),TVariant(TDateTime(2001,6,11,13,00,00,0).operator double()));
var_Events->Add(TVariant(TDateTime(2001,6,12,10,00,00,0).operator double()),TVariant(TDateTime(2001,6,12,13,00,00,0).operator double()));
/*
Select the Component\Import Component...\Import a Type Library,
to import the following Type Library:
ExPrint 1.0 Control Library
TypeLib: ExPrint.dll
to define the namespace: Exprintlib_tlb
*/
//#include "EXPRINTLIB_TLB.h"
Exprintlib_tlb::IExPrintPtr var_Print = Variant::CreateObject(L"Exontrol.Print");
var_Print->set_Options(TVariant("FitToPage=On"));
var_Print->PrintExt = (IUnknown*)Schedule1->DefaultDispatch;
var_Print->Preview();
|
|
149
|
Does your control support Print and Print-Preview
Exschedulelib_tlb::ICalendarPtr var_Calendar = Schedule1->Calendar;
var_Calendar->set_Selection(TVariant(TDateTime(2001,6,1).operator double()));
var_Calendar->set_Selection(TVariant("value in (#6/11/2001#,#6/12/2001#)"));
Schedule1->DayViewWidth = 512;
Schedule1->DayViewHeight = 512;
Exschedulelib_tlb::IEventsPtr var_Events = Schedule1->Events;
var_Events->Add(TVariant(TDateTime(2001,6,11,10,00,00,0).operator double()),TVariant(TDateTime(2001,6,11,13,00,00,0).operator double()));
var_Events->Add(TVariant(TDateTime(2001,6,12,10,00,00,0).operator double()),TVariant(TDateTime(2001,6,12,13,00,00,0).operator double()));
/*
Select the Component\Import Component...\Import a Type Library,
to import the following Type Library:
ExPrint 1.0 Control Library
TypeLib: ExPrint.dll
to define the namespace: Exprintlib_tlb
*/
//#include "EXPRINTLIB_TLB.h"
Exprintlib_tlb::IExPrintPtr var_Print = Variant::CreateObject(L"Exontrol.Print");
var_Print->PrintExt = (IUnknown*)Schedule1->DefaultDispatch;
var_Print->Preview();
|
|
148
|
How can I specify the height (time slot) of the day to be larger
Schedule1->BeginUpdate();
Schedule1->ClipToSel = true;
Schedule1->DayViewHeight = 1024;
Schedule1->DayViewWidth = -1;
Schedule1->TimeScales->get_Item(TVariant(0))->MinorTimeRuler = L"00:05";
Schedule1->EndUpdate();
|
|
147
|
How can I prevent resizing the schedule view, when a new date is selected
Exschedulelib_tlb::ICalendarPtr var_Calendar = Schedule1->Calendar;
var_Calendar->OnSelectDate = Exschedulelib_tlb::OnSelectDateEnum::exEnsureVisibleDate;
var_Calendar->set_Selection(TVariant(TDateTime(2001,1,10).operator double()));
var_Calendar->SingleSel = true;
Schedule1->DayViewWidth = 48;
|
|
146
|
How do I get notified once the user moves an event
// UpdateEvent event - Notifies your application once the event changes the starting or ending margins.
void __fastcall TForm1::Schedule1UpdateEvent(TObject *Sender,Exschedulelib_tlb::IEvent *Ev)
{
OutputDebugString( L"UpdateEvent" );
OutputDebugString( L"Ev" );
}
Schedule1->SelectEventStyle = Exschedulelib_tlb::LinesStyleEnum::exLinesSolid;
Schedule1->DefaultEventLongLabel = L"<%=%256%><br><%=%5%>";
Schedule1->DefaultEventShortLabel = Schedule1->DefaultEventLongLabel;
Schedule1->Calendar->set_Selection(TVariant(TDateTime(2001,1,10).operator double()));
Schedule1->OnResizeControl = Exschedulelib_tlb::OnResizeControlEnum::exCalendarAutoHide | Exschedulelib_tlb::OnResizeControlEnum::exCalendarFit | Exschedulelib_tlb::OnResizeControlEnum::exResizePanelRight;
Exschedulelib_tlb::IEventsPtr var_Events = Schedule1->Events;
Exschedulelib_tlb::IEventPtr var_Event = var_Events->Add(TVariant(TDateTime(2001,1,10,9,00,00,0).operator double()),TVariant(TDateTime(2001,1,10,12,30,00,0).operator double()));
var_Event->Editable = Exschedulelib_tlb::EditableCaptionEnum::exEditCaption;
var_Event->Caption = L"your caption";
Exschedulelib_tlb::IEventPtr var_Event1 = var_Events->Add(TVariant(TDateTime(2001,1,10,10,00,00,0).operator double()),TVariant(TDateTime(2001,1,10,13,00,00,0).operator double()));
var_Event1->Editable = Exschedulelib_tlb::EditableCaptionEnum::exEditCaption;
var_Event1->Caption = L"other caption";
|
|
145
|
Can You give me an example for the event handler when a user double clicks an appointment
// DblClick event - Occurs when the user dblclk the left mouse button over an object.
void __fastcall TForm1::Schedule1DblClick(TObject *Sender,short Shift,int X,int Y)
{
_tlb::ObjectPtr e = Schedule1->EventFromPoint[-1,-1];
OutputDebugString( L"Start:" );
OutputDebugString( L"e" );
OutputDebugString( L"End:" );
OutputDebugString( L"e" );
}
Schedule1->AllowEditEvent = Exschedulelib_tlb::AllowKeysEnum::exDisallow;
Schedule1->AllowToggleSchedule = Exschedulelib_tlb::AllowKeysEnum::exDisallow;
Exschedulelib_tlb::ICalendarPtr var_Calendar = Schedule1->Calendar;
var_Calendar->set_Selection(TVariant(TDateTime(2001,6,1).operator double()));
var_Calendar->set_Selection(TVariant("value in (#6/11/2001#,#6/12/2001#,#6/13/2001#)"));
Exschedulelib_tlb::IEventsPtr var_Events = Schedule1->Events;
var_Events->Add(TVariant(TDateTime(2001,6,11,10,00,00,0).operator double()),TVariant(TDateTime(2001,6,11,13,00,00,0).operator double()));
var_Events->Add(TVariant(TDateTime(2001,6,12,10,00,00,0).operator double()),TVariant(TDateTime(2001,6,12,13,00,00,0).operator double()));
|
|
144
|
Nothing is shown in the schedule view, if I use the Selection property. What am I doing wrong
Exschedulelib_tlb::ICalendarPtr var_Calendar = Schedule1->Calendar;
var_Calendar->set_Selection(TVariant(TDateTime(2001,6,1).operator double()));
var_Calendar->set_Selection(TVariant("value in (#6/11/2001#,#6/12/2001#,#6/13/2001#)"));
|
|
143
|
Is it possible to lock a date/day, so no events can be created, moved, and so on
Exschedulelib_tlb::ICalendarPtr var_Calendar = Schedule1->Calendar;
var_Calendar->set_Selection(TVariant(TDateTime(2001,6,1).operator double()));
var_Calendar->set_Selection(TVariant("value in (#6/11/2001#,#6/12/2001#,#6/13/2001#)"));
var_Calendar->DisableZoneFormat = L"value = #6/12/2001#";
Exschedulelib_tlb::IEventsPtr var_Events = Schedule1->Events;
var_Events->Add(TVariant(TDateTime(2001,6,11,10,00,00,0).operator double()),TVariant(TDateTime(2001,6,11,13,00,00,0).operator double()));
var_Events->Add(TVariant(TDateTime(2001,6,12,10,00,00,0).operator double()),TVariant(TDateTime(2001,6,12,13,00,00,0).operator double()));
|
|
142
|
How can I show the grid lines for minor and major rules in the schedule view
Schedule1->Background[Exschedulelib_tlb::BackgroundPartEnum::exScheduleMajorTimeScaleStyle] = RGB(0,0,0);
Schedule1->Background[Exschedulelib_tlb::BackgroundPartEnum::exScheduleMajorTimeRulerColor] = RGB(192,192,192);
Schedule1->Background[Exschedulelib_tlb::BackgroundPartEnum::exScheduleTimeScaleMajorRulerStyle] = RGB(0,0,0);
Schedule1->Background[Exschedulelib_tlb::BackgroundPartEnum::exScheduleTimeScaleMajorRulerColor] = RGB(192,192,192);
Schedule1->Background[Exschedulelib_tlb::BackgroundPartEnum::exScheduleMinorTimeScaleStyle] = RGB(3,0,0);
Schedule1->Background[Exschedulelib_tlb::BackgroundPartEnum::exScheduleTimeScaleMinorRulerStyle] = RGB(3,0,0);
|
|
141
|
Is it possible to show the grid lines for minor rulers too in the schedule view
Schedule1->Background[Exschedulelib_tlb::BackgroundPartEnum::exScheduleMinorTimeScaleStyle] = RGB(3,0,0);
|
|
140
|
How can I change the style and colors to show the grid lines
Schedule1->Background[Exschedulelib_tlb::BackgroundPartEnum::exScheduleMajorTimeScaleStyle] = RGB(48,0,0);
Schedule1->Background[Exschedulelib_tlb::BackgroundPartEnum::exScheduleMajorTimeRulerColor] = RGB(255,0,0);
Schedule1->Background[Exschedulelib_tlb::BackgroundPartEnum::exScheduleTimeScaleMajorRulerStyle] = RGB(3,0,0);
Schedule1->Background[Exschedulelib_tlb::BackgroundPartEnum::exScheduleTimeScaleMajorRulerColor] = RGB(255,0,0);
|
|
139
|
How can I show a solid line rather than dot lines in the schedule view
Schedule1->Background[Exschedulelib_tlb::BackgroundPartEnum::exScheduleMajorTimeScaleStyle] = RGB(48,0,0);
Schedule1->Background[Exschedulelib_tlb::BackgroundPartEnum::exScheduleMajorTimeRulerColor] = RGB(0,0,0);
|
|
138
|
Is it possible to hide or change the lines in the schedule view
Schedule1->Background[Exschedulelib_tlb::BackgroundPartEnum::exScheduleMajorTimeScaleStyle] = -1;
|
|
137
|
Is there a possiblity to lock an event, so it can't be moved or edited
Schedule1->Calendar->set_Selection(TVariant(TDateTime(2012,6,27).operator double()));
Exschedulelib_tlb::IEventsPtr var_Events = Schedule1->Events;
Exschedulelib_tlb::IEventPtr var_Event = var_Events->Add(TVariant(TDateTime(2012,6,27,10,00,00,0).operator double()),TVariant(TDateTime(2012,6,27,11,30,00,0).operator double()));
var_Event->BodyPattern->Type = Exschedulelib_tlb::PatternEnum::exPatternBDiagonal;
var_Event->Movable = false;
var_Event->Resizable = Exschedulelib_tlb::EventResizableEnum::exNoResizable;
var_Event->Selectable = false;
var_Event->Editable = Exschedulelib_tlb::EditableCaptionEnum::exNoEditable;
var_Event->ExtraLabel = L"locked";
var_Events->Add(TVariant(TDateTime(2012,6,27,13,30,00,0).operator double()),TVariant(TDateTime(2012,6,27,15,30,00,0).operator double()));
|
|
136
|
Is it possible to load a PNG file on the control's background ( /com only )
Schedule1->Template = L"Picture = LoadPicture(`c:\\exontrol\\images\\card.png`)";
|
|
135
|
What is the Event.UserData property used for
Schedule1->Calendar->set_Selection(TVariant(TDateTime(2012,6,27).operator double()));
Schedule1->DefaultEventTooltip = TVariant(String("Start: <%=%1%><br>End: <%=%2%><br>Duration: <%=((1:=int(0:= (date(%2)-date(%1)))) != 0 ? (=:1 + ' day(s)') : '') + (=:1 ? ' ' :") +
" '' ) + ((1:=int(0:=((=:0 - =:1 + 1/24/60/60/2)*24))) != 0 ? =:1 + ' hour(s)' : '' ) + (=:1 ? ' ' : '' ) + ((1:=round((=:0 - =:1" +
")*60)) != 0 ? =:1 + ' min(s)' : '')%><b><%=(len(%6) ? `<br>UserData: `+ %6 : ``)%></b>");
Exschedulelib_tlb::IEventsPtr var_Events = Schedule1->Events;
var_Events->Add(TVariant(TDateTime(2012,6,27,11,00,00,0).operator double()),TVariant(TDateTime(2012,6,27,12,30,00,0).operator double()))->set_UserData(TVariant("Any extra data associated with the event"));
var_Events->Add(TVariant(TDateTime(2012,6,27,11,30,00,0).operator double()),TVariant(TDateTime(2012,6,27,13,30,00,0).operator double()));
|
|
134
|
Is there also an event for when a user selects another month in the date-picker control
// LayoutEndChanging event - Notifies your application once the control's layout has been changed.
void __fastcall TForm1::Schedule1LayoutEndChanging(TObject *Sender,Exschedulelib_tlb::LayoutChangingEnum Operation)
{
OutputDebugString( L"End exCalendarDateChange(3)" );
OutputDebugString( L"Operation" );
OutputDebugString( L"Currently browsing date:" );
OutputDebugString( PChar(Schedule1->Calendar->Date) );
}
// LayoutStartChanging event - Occurs when the control's layout is about to be changed.
void __fastcall TForm1::Schedule1LayoutStartChanging(TObject *Sender,Exschedulelib_tlb::LayoutChangingEnum Operation)
{
OutputDebugString( L"Start exCalendarDateChange(3)" );
OutputDebugString( L"Operation" );
OutputDebugString( L"Previously browsing date:" );
OutputDebugString( PChar(Schedule1->Calendar->Date) );
}
|
|
133
|
How can I display the time-zone behind or back (method 2)
Schedule1->Calendar->set_Selection(TVariant(TDateTime(2012,6,27).operator double()));
Exschedulelib_tlb::IMarkZonePtr var_MarkZone = Schedule1->MarkZones->Add(L"zone",TVariant(TDateTime(2012,6,27,10,30,00,0).operator double()),TVariant(TDateTime(2012,6,27,13,00,00,0).operator double()));
var_MarkZone->LongLabel = L"zone";
Exschedulelib_tlb::IPatternPtr var_Pattern = var_MarkZone->Pattern;
var_Pattern->Type = Exschedulelib_tlb::PatternEnum::exPatternBDiagonal;
var_Pattern->Color = RGB(40,40,40);
Schedule1->ShowMarkZone = Exschedulelib_tlb::ShowMarkZoneEnum::exShowMarkZonesSemi;
Schedule1->Events->Add(TVariant(TDateTime(2012,6,27,11,00,00,0).operator double()),TVariant(TDateTime(2012,6,27,12,30,00,0).operator double()));
|
|
132
|
How can I display the time-zone behind or back (method 1)
Schedule1->Calendar->set_Selection(TVariant(TDateTime(2012,6,27).operator double()));
Schedule1->MarkZones->Add(L"zone",TVariant(TDateTime(2012,6,27,10,30,00,0).operator double()),TVariant(TDateTime(2012,6,27,13,00,00,0).operator double()))->LongLabel = L"zone";
Schedule1->ShowMarkZone = Exschedulelib_tlb::ShowMarkZoneEnum::exShowMarkZonesBack;
Schedule1->Events->Add(TVariant(TDateTime(2012,6,27,11,00,00,0).operator double()),TVariant(TDateTime(2012,6,27,12,30,00,0).operator double()));
|
|
131
|
How can I add a time-zone
Schedule1->Calendar->set_Selection(TVariant(TDateTime(2012,6,27).operator double()));
Schedule1->MarkZones->Add(L"zone",TVariant(TDateTime(2012,6,27,10,30,00,0).operator double()),TVariant(TDateTime(2012,6,27,13,00,00,0).operator double()))->LongLabel = L"zone";
|
|
130
|
How can I specify a larger height for the timer, or it is possible to make it bigger
Schedule1->BeginUpdate();
Schedule1->Calendar->set_Selection(TVariant(TDateTime(2012,5,24).operator double()));
Exschedulelib_tlb::IAppearancePtr var_Appearance = Schedule1->VisualAppearance;
var_Appearance->Add(1,TVariant(String("gBFLBCJwBAEHhEJAEGg4BC0MQAAYAQGKIYBkAKBQAGaAoDDUOQzQwAAxDGKUEwsACEIrjKCYVgOHYYQjGMZwHIUIhkGoSZKlCIRVDCKYJSzLcZAFIMRwSBiEQTmaa4W") +
"iKIgIQiUBomGahajkMoYZCYKKSCI2S4aDZCIoTPLMagxC5GJCnSJnITJCpdV7XVgWHYVSzDM6yEScZTkFqubZsW5cNwXHZ9azkQpyFRPe6bbrqfJ/X5gN64HgBfrEUo8" +
"cLxHCMKw3DKPYrkOLHS4CQjnSrLcqzDK8ax3GafZwcbqKWbmR5LUjTNR1DS9Hy3Kh8O4sSDbDqeZZpW7bNx2Xa9YQZcS5JBvfA8BwXC6JY7heR4ZIHTT9GbNc7zXQdHx" +
"LiuUZrnUEwvFYIoDjeXZuHePA+A8Hx/kuYhQD2WQqg8T4vlWbJ3nuPg+l+H5BFEASAg=="));
var_Appearance->Add(2,TVariant("CP:1 0 -3 0 3"));
Exschedulelib_tlb::IMarkTimePtr var_MarkTime = Schedule1->MarkTimes->Add(L"timer1",TDateTime(2012,5,24,11,15,00,0).operator double());
var_MarkTime->BackColor = 0x1000000;
var_MarkTime->Line = Exschedulelib_tlb::LinesStyleEnum::exNoLines;
var_MarkTime->Label = L"default height";
var_MarkTime->LabelAlign = Exschedulelib_tlb::ContentAlignmentEnum::exBottomRight;
Exschedulelib_tlb::IMarkTimePtr var_MarkTime1 = Schedule1->MarkTimes->Add(L"timer2",TDateTime(2012,5,24,13,15,00,0).operator double());
var_MarkTime1->BackColor = 0x2000000;
var_MarkTime1->Line = Exschedulelib_tlb::LinesStyleEnum::exNoLines;
var_MarkTime1->Label = L"larger height";
var_MarkTime1->LabelAlign = Exschedulelib_tlb::ContentAlignmentEnum::exBottomRight;
Schedule1->EndUpdate();
|
|
129
|
How I know what event was edited when it was edited by a user
// LayoutEndChanging event - Notifies your application once the control's layout has been changed.
void __fastcall TForm1::Schedule1LayoutEndChanging(TObject *Sender,Exschedulelib_tlb::LayoutChangingEnum Operation)
{
OutputDebugString( L"End Operation exScheduleEditEvent(15)" );
OutputDebugString( L"Operation" );
OutputDebugString( L"Use the global member from LayoutStartChanging, and you got the Event being edited" );
}
// LayoutStartChanging event - Occurs when the control's layout is about to be changed.
void __fastcall TForm1::Schedule1LayoutStartChanging(TObject *Sender,Exschedulelib_tlb::LayoutChangingEnum Operation)
{
OutputDebugString( L"Start Operation exScheduleEditEvent(15)" );
OutputDebugString( L"Operation" );
OutputDebugString( L"Holds the EventFromPoint to a global member" );
OutputDebugString( PChar(Schedule1->EventFromPoint[-1,-1]) );
}
Schedule1->BeginUpdate();
Schedule1->SelectEventStyle = Exschedulelib_tlb::LinesStyleEnum::exLinesThicker | Exschedulelib_tlb::LinesStyleEnum::exLinesSolid;
Schedule1->Calendar->set_Selection(TVariant(TDateTime(2012,5,24).operator double()));
Exschedulelib_tlb::IEventsPtr var_Events = Schedule1->Events;
var_Events->Add(TVariant(TDateTime(2012,5,24,9,00,00,0).operator double()),TVariant(TDateTime(2012,5,24,12,00,00,0).operator double()));
var_Events->Add(TVariant(TDateTime(2012,5,24,10,45,00,0).operator double()),TVariant(TDateTime(2012,5,24,12,45,00,0).operator double()));
Schedule1->EndUpdate();
|
|
128
|
What are timers in your exSchedule component
Schedule1->BeginUpdate();
Schedule1->Calendar->set_Selection(TVariant(TDateTime(2012,5,24).operator double()));
Exschedulelib_tlb::IMarkTimePtr var_MarkTime = Schedule1->MarkTimes->Add(L"timer1",TDateTime(2012,5,24,8,35,00,0).operator double());
var_MarkTime->Label = L"<fgcolor=808080>fixed timer";
var_MarkTime->LabelAlign = Exschedulelib_tlb::ContentAlignmentEnum::exTopCenter;
var_MarkTime->Pattern->Type = Exschedulelib_tlb::PatternEnum::exPatternBDiagonal;
var_MarkTime->Pattern->Color = RGB(224,224,224);
Exschedulelib_tlb::IMarkTimePtr var_MarkTime1 = Schedule1->MarkTimes->Add(L"timer2",TDateTime(2012,5,24,10,51,00,0).operator double());
var_MarkTime1->Label = L"<fgcolor=00FF00>movable timer";
var_MarkTime1->Movable = true;
var_MarkTime1->BodyEventBackColor = RGB(128,255,128);
var_MarkTime1->LineColor = RGB(0,240,15);
var_MarkTime1->TimeScaleLineColor = RGB(0,255,0);
var_MarkTime1->TimeScaleLabel = L"";
var_MarkTime1->Line = Exschedulelib_tlb::LinesStyleEnum::exLinesThicker | Exschedulelib_tlb::LinesStyleEnum::exLinesDash;
var_MarkTime1->Label = L"<bgcolor=FFFFFF><fgcolor=00FF00><b><%hh%>:<%nn%> <%AM/PM%><br><%loc_sdate%>";
var_MarkTime1->TimeScaleLine = Exschedulelib_tlb::LinesStyleEnum::exLinesThick | Exschedulelib_tlb::LinesStyleEnum::exLinesDot4;
Exschedulelib_tlb::IEventsPtr var_Events = Schedule1->Events;
var_Events->Add(TVariant(TDateTime(2012,5,24,9,00,00,0).operator double()),TVariant(TDateTime(2012,5,24,12,00,00,0).operator double()));
var_Events->Add(TVariant(TDateTime(2012,5,24,10,45,00,0).operator double()),TVariant(TDateTime(2012,5,24,12,45,00,0).operator double()));
var_Events->Add(TVariant(TDateTime(2012,5,24,11,30,00,0).operator double()),TVariant(TDateTime(2012,5,24,14,30,00,0).operator double()));
var_Events->Add(TVariant(TDateTime(2012,5,24,12,45,00,0).operator double()),TVariant(TDateTime(2012,5,24,15,45,00,0).operator double()));
Schedule1->EndUpdate();
|
|
127
|
How do I get the selected dates in the calendar panel
// LayoutEndChanging event - Notifies your application once the control's layout has been changed.
void __fastcall TForm1::Schedule1LayoutEndChanging(TObject *Sender,Exschedulelib_tlb::LayoutChangingEnum Operation)
{
OutputDebugString( L"Operation: exScheduleSelectionChange(10)" );
OutputDebugString( L"Operation" );
OutputDebugString( L"Selected Event Count:" );
OutputDebugString( PChar(Schedule1->SelCount) );
OutputDebugString( L"First Selected Event:" );
OutputDebugString( PChar(Schedule1->SelEvent[0]) );
}
Schedule1->Calendar->set_Selection(TVariant(TDateTime(2011,1,1).operator double()));
Exschedulelib_tlb::IEventsPtr var_Events = Schedule1->Events;
var_Events->Add(TVariant(TDateTime(2011,1,1,10,00,00,0).operator double()),TVariant(TDateTime(2011,1,1,11,30,00,0).operator double()));
var_Events->Add(TVariant(TDateTime(2011,1,1,11,30,00,0).operator double()),TVariant(TDateTime(2011,1,1,13,30,00,0).operator double()));
|
|
126
|
How do I get the selected dates in the calendar panel
// LayoutEndChanging event - Notifies your application once the control's layout has been changed.
void __fastcall TForm1::Schedule1LayoutEndChanging(TObject *Sender,Exschedulelib_tlb::LayoutChangingEnum Operation)
{
OutputDebugString( L"Operation: exCalendarSelectionChange(1)" );
OutputDebugString( L"Operation" );
Exschedulelib_tlb::ICalendarPtr var_Calendar = Schedule1->Calendar;
OutputDebugString( L"Selected Date Count:" );
OutputDebugString( PChar(var_Calendar->SelCount) );
OutputDebugString( L"First Selected Date:" );
OutputDebugString( PChar(var_Calendar->get_SelDate(0)) );
}
|
|
125
|
What is the easiest way to display a picture on my event
Schedule1->Calendar->set_Selection(TVariant(TDateTime(2012,5,24).operator double()));
Schedule1->Pictures->Add(L"pic1",TVariant("c:\\exontrol\\images\\zipdisk.gif"));
Schedule1->Events->Add(TVariant(TDateTime(2012,5,24,9,00,00,0).operator double()),TVariant(TDateTime(2012,5,24,14,00,00,0).operator double()))->Pictures = L"pic1";
|
|
124
|
How can I programmatically move a specified event
Schedule1->BeginUpdate();
Schedule1->Calendar->set_Selection(TVariant(TDateTime(2012,5,24).operator double()));
Schedule1->Events->Add(TVariant(TDateTime(2012,5,24,10,00,00,0).operator double()),TVariant(TDateTime(2012,5,24,12,00,00,0).operator double()))->MoveBy(TVariant("-00:15"));
Schedule1->EndUpdate();
|
|
123
|
How can I edit the event but still display its margins
// AddEvent event - Notifies your application once the a new event is added.
void __fastcall TForm1::Schedule1AddEvent(TObject *Sender,Exschedulelib_tlb::IEvent *Ev)
{
// Ev.Editable = 1
}
Schedule1->SelectEventStyle = Exschedulelib_tlb::LinesStyleEnum::exLinesSolid;
Schedule1->DefaultEventLongLabel = L"<%=%256%><br><%=%5%>";
Schedule1->DefaultEventShortLabel = Schedule1->DefaultEventLongLabel;
Schedule1->Calendar->set_Selection(TVariant(TDateTime(2001,1,10).operator double()));
Schedule1->OnResizeControl = Exschedulelib_tlb::OnResizeControlEnum::exCalendarAutoHide | Exschedulelib_tlb::OnResizeControlEnum::exCalendarFit | Exschedulelib_tlb::OnResizeControlEnum::exResizePanelRight;
Exschedulelib_tlb::IEventsPtr var_Events = Schedule1->Events;
Exschedulelib_tlb::IEventPtr var_Event = var_Events->Add(TVariant(TDateTime(2001,1,10,9,00,00,0).operator double()),TVariant(TDateTime(2001,1,10,12,30,00,0).operator double()));
var_Event->Editable = Exschedulelib_tlb::EditableCaptionEnum::exEditCaption;
var_Event->Caption = L"your caption";
Exschedulelib_tlb::IEventPtr var_Event1 = var_Events->Add(TVariant(TDateTime(2001,1,10,10,00,00,0).operator double()),TVariant(TDateTime(2001,1,10,13,00,00,0).operator double()));
var_Event1->Editable = Exschedulelib_tlb::EditableCaptionEnum::exEditCaption;
var_Event1->Caption = L"other caption";
|
|
122
|
How can I edit the events
// AddEvent event - Notifies your application once the a new event is added.
void __fastcall TForm1::Schedule1AddEvent(TObject *Sender,Exschedulelib_tlb::IEvent *Ev)
{
// Ev.Editable = 3
}
Schedule1->SelectEventStyle = Exschedulelib_tlb::LinesStyleEnum::exLinesSolid;
Schedule1->DefaultEventLongLabel = L"";
Schedule1->DefaultEventShortLabel = L"";
Schedule1->CreateEventLabel = L"";
Schedule1->Calendar->set_Selection(TVariant(TDateTime(2001,1,10).operator double()));
Schedule1->OnResizeControl = Exschedulelib_tlb::OnResizeControlEnum::exCalendarAutoHide | Exschedulelib_tlb::OnResizeControlEnum::exCalendarFit | Exschedulelib_tlb::OnResizeControlEnum::exResizePanelRight;
Exschedulelib_tlb::IEventsPtr var_Events = Schedule1->Events;
Exschedulelib_tlb::IEventPtr var_Event = var_Events->Add(TVariant(TDateTime(2001,1,10,9,00,00,0).operator double()),TVariant(TDateTime(2001,1,10,12,30,00,0).operator double()));
var_Event->Editable = Exschedulelib_tlb::EditableCaptionEnum::exEditLongLabel;
var_Event->LongLabel = L"just your label";
Exschedulelib_tlb::IEventPtr var_Event1 = var_Events->Add(TVariant(TDateTime(2001,1,10,10,00,00,0).operator double()),TVariant(TDateTime(2001,1,10,13,00,00,0).operator double()));
var_Event1->Editable = Exschedulelib_tlb::EditableCaptionEnum::exEditLongLabel;
var_Event1->LongLabel = L"just another label";
|
|
121
|
At the moment the scheduler only displays events from 8:00 am to 3:00 pm. How do I extend this time frame
Schedule1->DayStartTime = L"07:30";
Schedule1->DayEndTime = L"14:30";
|
|
120
|
How does localization work
Exschedulelib_tlb::ICalendarPtr var_Calendar = Schedule1->Calendar;
var_Calendar->FirstWeekDay = var_Calendar->LocFirstWeekDay;
var_Calendar->MonthNames = var_Calendar->LocMonthNames;
var_Calendar->WeekDays = var_Calendar->LocWeekDays;
var_Calendar->AMPM = var_Calendar->LocAMPM;
|
|
119
|
Is it possible to limit the calendar to one month only
Schedule1->ScrollBars = Exschedulelib_tlb::ScrollBarsEnum::exNoScroll;
Schedule1->AllowMoveSchedule = Exschedulelib_tlb::AllowKeysEnum::exDisallow;
Exschedulelib_tlb::ICalendarPtr var_Calendar = Schedule1->Calendar;
var_Calendar->set_Selection(TVariant(TDateTime(2001,1,10).operator double()));
var_Calendar->MinDate = TDateTime(2001,1,1).operator double();
var_Calendar->MaxDate = TDateTime(2001,1,31).operator double();
|
|
118
|
How can I display a distingue text for repetitive events
Schedule1->SelectEventStyle = Exschedulelib_tlb::LinesStyleEnum::exLinesSolid;
Schedule1->DefaultEventLongLabel = L"<%=%256%><br><%=%264? `repetitive event`:``%>";
Schedule1->DefaultEventShortLabel = Schedule1->DefaultEventLongLabel;
Schedule1->Calendar->set_Selection(TVariant(TDateTime(2001,1,10).operator double()));
Schedule1->OnResizeControl = Exschedulelib_tlb::OnResizeControlEnum::exCalendarAutoHide | Exschedulelib_tlb::OnResizeControlEnum::exCalendarFit | Exschedulelib_tlb::OnResizeControlEnum::exResizePanelRight;
Exschedulelib_tlb::IEventsPtr var_Events = Schedule1->Events;
var_Events->Add(TVariant(TDateTime(2001,1,10,9,00,00,0).operator double()),TVariant(TDateTime(2001,1,10,12,30,00,0).operator double()))->Repetitive = L"weekday(value) = 3";
var_Events->Add(TVariant(TDateTime(2001,1,10,10,00,00,0).operator double()),TVariant(TDateTime(2001,1,10,13,00,00,0).operator double()));
|
|
117
|
How can I display the event's duration on the body of the event
Schedule1->SelectEventStyle = Exschedulelib_tlb::LinesStyleEnum::exLinesSolid;
Schedule1->DefaultEventLongLabel = TVariant(String("<%=%256%><br><%=((1:=int(0:= (date(%2)-date(%1)))) != 0 ? (=:1 + ' day(s)') : '') + (=:1 ? ' ' : '' ) + ((1:=int(0:=((=:0 - =:1") +
" + 1/24/60/60/2)*24))) != 0 ? =:1 + ' hour(s)' : '' ) + (=:1 ? ' ' : '' ) + ((1:=round((=:0 - =:1)*60)) != 0 ? =:1 + ' min(s)' :" +
" '')%>");
Schedule1->DefaultEventShortLabel = Schedule1->DefaultEventLongLabel;
Schedule1->Calendar->set_Selection(TVariant(TDateTime(2001,1,10).operator double()));
Schedule1->OnResizeControl = Exschedulelib_tlb::OnResizeControlEnum::exCalendarAutoHide | Exschedulelib_tlb::OnResizeControlEnum::exCalendarFit | Exschedulelib_tlb::OnResizeControlEnum::exResizePanelRight;
Exschedulelib_tlb::IEventsPtr var_Events = Schedule1->Events;
var_Events->Add(TVariant(TDateTime(2001,1,10,9,00,00,0).operator double()),TVariant(TDateTime(2001,1,10,12,30,00,0).operator double()));
var_Events->Add(TVariant(TDateTime(2001,1,10,10,00,00,0).operator double()),TVariant(TDateTime(2001,1,10,13,00,00,0).operator double()));
|
|
116
|
The sample shows how the event's body can display automatically the UserData property of the event
Schedule1->SelectEventStyle = Exschedulelib_tlb::LinesStyleEnum::exLinesSolid;
Schedule1->DefaultEventLongLabel = L"<%=%256%><br><%=%6%>";
Schedule1->DefaultEventShortLabel = Schedule1->DefaultEventLongLabel;
Schedule1->Calendar->set_Selection(TVariant(TDateTime(2001,1,10).operator double()));
Schedule1->OnResizeControl = Exschedulelib_tlb::OnResizeControlEnum::exCalendarAutoHide | Exschedulelib_tlb::OnResizeControlEnum::exCalendarFit | Exschedulelib_tlb::OnResizeControlEnum::exResizePanelRight;
Exschedulelib_tlb::IEventsPtr var_Events = Schedule1->Events;
var_Events->Add(TVariant(TDateTime(2001,1,10,9,00,00,0).operator double()),TVariant(TDateTime(2001,1,10,12,30,00,0).operator double()))->set_UserData(TVariant("UserData 1"));
var_Events->Add(TVariant(TDateTime(2001,1,10,10,00,00,0).operator double()),TVariant(TDateTime(2001,1,10,13,00,00,0).operator double()))->set_UserData(TVariant("UserData 2"));
|
|
115
|
The sample shows how the event's body can display automatically the Caption property of the event
Schedule1->SelectEventStyle = Exschedulelib_tlb::LinesStyleEnum::exLinesSolid;
Schedule1->DefaultEventLongLabel = L"<%=%256%><br><%=%5%>";
Schedule1->DefaultEventShortLabel = Schedule1->DefaultEventLongLabel;
Schedule1->Calendar->set_Selection(TVariant(TDateTime(2001,1,10).operator double()));
Schedule1->OnResizeControl = Exschedulelib_tlb::OnResizeControlEnum::exCalendarAutoHide | Exschedulelib_tlb::OnResizeControlEnum::exCalendarFit | Exschedulelib_tlb::OnResizeControlEnum::exResizePanelRight;
Exschedulelib_tlb::IEventsPtr var_Events = Schedule1->Events;
var_Events->Add(TVariant(TDateTime(2001,1,10,9,00,00,0).operator double()),TVariant(TDateTime(2001,1,10,12,30,00,0).operator double()))->Caption = L"Event 1";
var_Events->Add(TVariant(TDateTime(2001,1,10,10,00,00,0).operator double()),TVariant(TDateTime(2001,1,10,13,00,00,0).operator double()))->Caption = L"Event 2";
|
|
114
|
The sample shows how the event's body can display automatically the group's ID, Caption and Title
Schedule1->SelectEventStyle = Exschedulelib_tlb::LinesStyleEnum::exLinesSolid;
Schedule1->DefaultEventLongLabel = L"Group's ID:<%=%4%><br>Group's Caption: <%=%262%><br>Group's Title: <%=%263%><br><%=%256%>";
Schedule1->DefaultEventShortLabel = Schedule1->DefaultEventLongLabel;
Schedule1->Calendar->set_Selection(TVariant(TDateTime(2001,1,10).operator double()));
Schedule1->DisplayGroupingButton = true;
Schedule1->ShowGroupingEvents = true;
Schedule1->OnResizeControl = Exschedulelib_tlb::OnResizeControlEnum::exCalendarAutoHide | Exschedulelib_tlb::OnResizeControlEnum::exCalendarFit | Exschedulelib_tlb::OnResizeControlEnum::exResizePanelRight;
Exschedulelib_tlb::IGroupsPtr var_Groups = Schedule1->Groups;
Exschedulelib_tlb::IGroupPtr var_Group = var_Groups->Add(1,L"Group 1");
var_Group->Title = L"First";
var_Group->Visible = true;
Exschedulelib_tlb::IGroupPtr var_Group1 = var_Groups->Add(2,L"Group 2");
var_Group1->Title = L"Second";
var_Group1->Visible = true;
Exschedulelib_tlb::IEventsPtr var_Events = Schedule1->Events;
var_Events->Add(TVariant(TDateTime(2001,1,10,9,00,00,0).operator double()),TVariant(TDateTime(2001,1,10,12,30,00,0).operator double()))->GroupID = 1;
var_Events->Add(TVariant(TDateTime(2001,1,10,10,00,00,0).operator double()),TVariant(TDateTime(2001,1,10,13,00,00,0).operator double()))->GroupID = 2;
|
|
113
|
The following sample displays automatically an "All-Day-Event: " prefix for AllDayEvent events
Schedule1->SelectEventStyle = Exschedulelib_tlb::LinesStyleEnum::exLinesSolid;
Schedule1->DefaultEventLongLabel = L"<%=%3 ? `All-Day-Event: `: ``%><%=%256%>";
Schedule1->DefaultEventShortLabel = Schedule1->DefaultEventLongLabel;
Schedule1->Calendar->set_Selection(TVariant(TDateTime(2001,1,10).operator double()));
Schedule1->OnResizeControl = Exschedulelib_tlb::OnResizeControlEnum::exCalendarAutoHide | Exschedulelib_tlb::OnResizeControlEnum::exCalendarFit | Exschedulelib_tlb::OnResizeControlEnum::exResizePanelRight;
Exschedulelib_tlb::IEventsPtr var_Events = Schedule1->Events;
var_Events->Add(TVariant(TDateTime(2001,1,10).operator double()),TVariant(TDateTime(2001,1,10).operator double()))->AllDayEvent = true;
var_Events->Add(TVariant(TDateTime(2001,1,10,10,00,00,0).operator double()),TVariant(TDateTime(2001,1,10,13,00,00,0).operator double()));
|
|
112
|
How can I use the calendar's LongTimeFormat
Schedule1->SelectEventStyle = Exschedulelib_tlb::LinesStyleEnum::exLinesSolid;
Schedule1->DefaultEventLongLabel = L"<%=%257%>";
Schedule1->DefaultEventShortLabel = L"<%=%257%>";
Exschedulelib_tlb::ICalendarPtr var_Calendar = Schedule1->Calendar;
var_Calendar->set_Selection(TVariant(TDateTime(2001,1,10).operator double()));
var_Calendar->LongTimeFormat = L"<%hh%>:<%nn%>:<%ss%>";
Schedule1->OnResizeControl = Exschedulelib_tlb::OnResizeControlEnum::exCalendarAutoHide | Exschedulelib_tlb::OnResizeControlEnum::exCalendarFit | Exschedulelib_tlb::OnResizeControlEnum::exResizePanelRight;
Schedule1->Events->Add(TVariant(TDateTime(2001,1,10,10,00,00,0).operator double()),TVariant(TDateTime(2001,1,11,13,00,00,0).operator double()));
|
|
111
|
How can I use the calendar's ShortTimeFormat. The sample displays the times in 24-hours format
Schedule1->SelectEventStyle = Exschedulelib_tlb::LinesStyleEnum::exLinesSolid;
Schedule1->DefaultEventLongLabel = L"<%=%256%>";
Schedule1->DefaultEventShortLabel = L"<%=%256%>";
Schedule1->TimeScales->get_Item(TVariant(0))->MajorTimeLabel = L"<%hh%>:<%nn%>";
Exschedulelib_tlb::ICalendarPtr var_Calendar = Schedule1->Calendar;
var_Calendar->set_Selection(TVariant(TDateTime(2001,1,10).operator double()));
var_Calendar->ShortTimeFormat = L"<%h%>:<%nn%>";
Schedule1->OnResizeControl = Exschedulelib_tlb::OnResizeControlEnum::exCalendarAutoHide | Exschedulelib_tlb::OnResizeControlEnum::exCalendarFit | Exschedulelib_tlb::OnResizeControlEnum::exResizePanelRight;
Schedule1->Events->Add(TVariant(TDateTime(2001,1,10,10,00,00,0).operator double()),TVariant(TDateTime(2001,1,10,13,00,00,0).operator double()));
|
|
110
|
How can I use the calendar's ShortDateFormat
Schedule1->SelectEventStyle = Exschedulelib_tlb::LinesStyleEnum::exLinesSolid;
Schedule1->DefaultEventLongLabel = L"<%=%256%>";
Schedule1->DefaultEventShortLabel = L"<%=%256%>";
Exschedulelib_tlb::ICalendarPtr var_Calendar = Schedule1->Calendar;
var_Calendar->set_Selection(TVariant(TDateTime(2001,1,10).operator double()));
var_Calendar->ShortDateFormat = L"<%loc_d2%>, <%loc_m2%> <%d%>, <%yy%>";
Schedule1->OnResizeControl = Exschedulelib_tlb::OnResizeControlEnum::exCalendarAutoHide | Exschedulelib_tlb::OnResizeControlEnum::exCalendarFit | Exschedulelib_tlb::OnResizeControlEnum::exResizePanelRight;
Schedule1->Events->Add(TVariant(TDateTime(2001,1,10,10,00,00,0).operator double()),TVariant(TDateTime(2001,1,10,13,00,00,0).operator double()))->AllDayEvent = true;
|
|
109
|
How can I use the calendar's LongDateFormat
Schedule1->SelectEventStyle = Exschedulelib_tlb::LinesStyleEnum::exLinesSolid;
Schedule1->DefaultEventLongLabel = L"<%=%257%>";
Schedule1->DefaultEventShortLabel = L"<%=%257%>";
Exschedulelib_tlb::ICalendarPtr var_Calendar = Schedule1->Calendar;
var_Calendar->set_Selection(TVariant(TDateTime(2001,1,10).operator double()));
var_Calendar->LongDateFormat = L"<%loc_dddd%>, <%loc_mmm%> <%d%>, <%yyyy%>";
Schedule1->OnResizeControl = Exschedulelib_tlb::OnResizeControlEnum::exCalendarAutoHide | Exschedulelib_tlb::OnResizeControlEnum::exCalendarFit | Exschedulelib_tlb::OnResizeControlEnum::exResizePanelRight;
Schedule1->Events->Add(TVariant(TDateTime(2001,1,10,10,00,00,0).operator double()),TVariant(TDateTime(2001,1,10,13,00,00,0).operator double()))->AllDayEvent = true;
|
|
108
|
Is it possible to prevent updating events
Schedule1->SelectEventStyle = Exschedulelib_tlb::LinesStyleEnum::exLinesSolid;
Schedule1->AllowUpdateDisableZone = false;
Exschedulelib_tlb::ICalendarPtr var_Calendar = Schedule1->Calendar;
var_Calendar->ShowNonMonthDays = false;
var_Calendar->set_Selection(TVariant(TDateTime(2001,1,9).operator double()));
var_Calendar->DisableZoneFormat = L"value >= #1/11/2001#";
var_Calendar->MinDate = TDateTime(2001,1,1).operator double();
Exschedulelib_tlb::IEventsPtr var_Events = Schedule1->Events;
var_Events->Add(TVariant(TDateTime(2001,1,10,10,00,00,0).operator double()),TVariant(TDateTime(2001,1,10,13,00,00,0).operator double()));
var_Events->Add(TVariant(TDateTime(2001,1,11,10,00,00,0).operator double()),TVariant(TDateTime(2001,1,11,13,00,00,0).operator double()));
|
|
107
|
How can I specify that after editing the caption should be on top ( method 2 )
Schedule1->DefaultEventLongLabel = L"";
Schedule1->DefaultEventShortLabel = Schedule1->DefaultEventLongLabel;
Schedule1->SelectEventStyle = Exschedulelib_tlb::LinesStyleEnum::exLinesSolid;
Exschedulelib_tlb::ICalendarPtr var_Calendar = Schedule1->Calendar;
var_Calendar->ShowNonMonthDays = false;
var_Calendar->set_Selection(TVariant(TDateTime(2001,1,1).operator double()));
Exschedulelib_tlb::IEventsPtr var_Events = Schedule1->Events;
Exschedulelib_tlb::IEventPtr var_Event = var_Events->Add(TVariant(TDateTime(2001,1,1,10,00,00,0).operator double()),TVariant(TDateTime(2001,1,1,13,00,00,0).operator double()));
var_Event->ExtraLabel = L"title";
var_Event->ExtraLabelAlign = Exschedulelib_tlb::ContentAlignmentEnum::exTopLeft;
|
|
106
|
How can I specify that after editing the caption should be on top ( method 1 )
Schedule1->DefaultEventLongLabel = L"";
Schedule1->DefaultEventShortLabel = Schedule1->DefaultEventLongLabel;
Schedule1->SelectEventStyle = Exschedulelib_tlb::LinesStyleEnum::exLinesSolid;
Exschedulelib_tlb::ICalendarPtr var_Calendar = Schedule1->Calendar;
var_Calendar->ShowNonMonthDays = false;
var_Calendar->set_Selection(TVariant(TDateTime(2001,1,1).operator double()));
Exschedulelib_tlb::IEventsPtr var_Events = Schedule1->Events;
Exschedulelib_tlb::IEventPtr var_Event = var_Events->Add(TVariant(TDateTime(2001,1,1,10,00,00,0).operator double()),TVariant(TDateTime(2001,1,1,13,00,00,0).operator double()));
var_Event->LongLabel = L"title";
var_Event->Editable = Exschedulelib_tlb::EditableCaptionEnum::exEditLongLabel;
|
|
105
|
How can I get ride or hide the of the calendar's grid lines
Exschedulelib_tlb::ICalendarPtr var_Calendar = Schedule1->Calendar;
var_Calendar->ShowNonMonthDays = false;
var_Calendar->set_Selection(TVariant(TDateTime(2001,1,1).operator double()));
var_Calendar->ShowGridLines = Exschedulelib_tlb::LinesStyleEnum::exNoLines;
|
|
104
|
How can I programmatically select a single date ( method 2 )
Schedule1->Calendar->set_Selection(TVariant(TDateTime(2012,1,1).operator double()));
|
|
103
|
How can I programmatically select a single date ( method 1 )
Exschedulelib_tlb::ICalendarPtr var_Calendar = Schedule1->Calendar;
var_Calendar->set_Selection(TVariant("0"));
var_Calendar->set_SelectDate(TDateTime(2012,1,1).operator double(),true);
|
|
102
|
How can I prevent showing the Today button, in the calendar panel
Schedule1->OnResizeControl = Exschedulelib_tlb::OnResizeControlEnum::exHideSplitter;
Schedule1->Calendar->ShowTodayButton = false;
|
|
101
|
How can I display just the calendar panel, not including the schedule panel
Schedule1->OnResizeControl = Exschedulelib_tlb::OnResizeControlEnum::exHideSplitter;
|